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00-36 

1304 

tad 

01 1 

625 

38437 

7750 

SPA SNA 

CLA 

626 

83442 

5301 

JMP 

FCBERR 


/•THEN* 


/A LINENQ 


✓A VARIA5LE 


/CAN'T FIT 9 IN FORLIST 


V 
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627 

628 

629 

630 
63: 

632 
6 33 

634 

635 

636 
6 37 

633 
6 39 
640 
64J 

6«a 

643 

644 

645 
fe9fc 
667 

6> r* 

669 

650 

651 

652 

653 

654 

655 

656 

657 

658 

659 

660 
661 
662 

663 

664 

665 

666 

667 

668 
689 

670 

671 

672 

673 

674 

675 

676 

677 
676 
679 
660 
661 


00441 

1050 

TAO 

WORD 

0C542 

7041 

CIA 


00443 

3413 

OCA I 

INDEX1 

03444 

1050 

TAD 

WORD 

00045 

3252 

DC A 

FORVAR 

00496 

457 1 

get^mustbe 

00447 

3673 

3673 


C3450 

4521 

J*S l 

peval 

30451 

45?2 

J M S I 

pgetacdr 

0S452 

0030 

FORVAfi, e 


0095 3 

0723 

0 


00454 

0203 

0 


00455 

4435 

►'ENTER 


£30u56 

2967 

P S 7 I 

ADDRESS 

03457 

0003 

► EXIT 


03463 

4570 

MUST9E 


CS4bl 

3757 

3757 


03462 

1045 

TAO 

LOCCTR 

£046 3 

3ai3 

OCA I 

INDEX! 

£3464 

7240 

CLA Cm a 


02465 

1263 

TAD 

FORCT 

00466 

3263 

OCA 

FORCT 


00467 4671 SKIPIT, JMS I 

00470 5503 jmp l 


P IGNORE 
PEXECUTE 


00471 2U5 PIGNORE, IGNORE 


00472 

0000 

PASSCR, 0 


00073 

4671 

JM$ I 

pignore 

00474 

2050 

IS2 

WORD 

00475 

4566 

IS IT 

0047b 

4100 

4100 


00477 

5273 

JMP 

• *4 

00500 

5672 

JMP I 

PASSCR 

... : 

• • 




/LOOK FOR «\» OR C.R. 

/A*D EKECUTEPTHE NEXT STATEMENT 


/this LOOKS FOR A REAL C.R. 
/LOOK FOR "\« OR C.R. 


/A REAL C.R, 7 
/NOPE, A SLASH, 

/AND RETURN TO CALLER. 


K 
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682 





683 

00501 

4477 

F09ERR, JMS I 

PERROR 

664 

00502 

0617 

TEXT 

'FOR" 

685 

00503 

2200 



666 

03504 

0011 

Oil, 11 


667 

e0505 

4177 

GOSUB, JMS 

GETWO 

688 

03506 

4332 

JMS 

GOBOTH 

689 

03507 

1165 

TAD 

GSBPTR 

690 

00510 

1325 

TAO 

MGSBEND 

691 

00511 

7650 

SNA CLA 

692 

00512 

5326 

JMP 

DEEPER® 

693 

00513 

1045 

TAO 

LOCCTR 

694 

00514 

3565 

OCA I 

G5BPTR 

695 

00515 

2165 

I s z 

GSBPTR 

69fe 

00516 

5321 

JMP 

GCTC*2 

697 

00517 

4177 

GOTO, JMS 

GETWO 

698 

00520 

4332 

JMS 

GOBOTH 

699 

00521 

2053 

ISZ 

GOTEMP 

700 

00522 

1453 

TAO I 

GOTEMP 

701 

00523 

3045 

OCA 

LOCCTR 

702 

00524 

5503 

JMP I 

PEXECUTE 

703 

00525 

0023 

MGSBENO.-GSBENO 

704 

00526 

4477 

OEEPERR.Jms I 

PERROR 

705 

00527 

0717 

TEXT * 

GOSUB * 

706 

00530 

2325 



707 

00531 

0200 



708 

00532 

0003 

GOBOTH, 0 


709 

00533 

4570 

MU3TBE 


710 

00534 

0000 

0000 


711 

00535 

1050 

tad 

WORO 

712 

00536 

3353 

OCA 

GOTEMP 

713 

00537 

2050 

ISZ 

WORO 

714 

00540 

4566 

ISIT 


715 

00541 

0000 

0000 


716 

00542 

5350 

JMP 

ISITOF 

717 

00543 

4477 

JMS I 

PERROR 

718 

00544 

1411 

TEXT 'I 

LINENO* 

719 

00545 

1605 



720 

02546 

1617 



721 

00547 

0000 



722 

00550 

457 1 

I5IT0F, GET^MUSTBE / 

723 

02551 

2030 

2000 


724 

00552 

5732 

JMP I 

GOBOTM 

725 

00553 

0000 

VARTEMP,0|0;3 


726 

00554 

0000 



727 

00555 

0000 




/A LINENO 


/DEFINED 


/CCR) OR *\* 


728 00556 7704 PxFORLI,FORLIST.l 

729 00557 0000 FI NOIT, 0 

733 00560 1363 TAD 

731 00561 3053 OCA 

732 00562 1356 TAD 

733 00563 3313 OCA 

734 00564 5372 j*P 

735 02565 U13 FJNDLUP.TAO I 

736 00566 1050 TAO 


FORCT 

GOTEMp 

PXF0RLI5T 

INOEX1 

inloop 

I NOE X 1 
WORD 














/WAMC.l 3£ 


PAU6-V9 


7 37 

P056 7 

7650 


7 33 

? ? 5 7 0 

5375 


739 

0?57l 

2313 


7*10 

03572 

2253 

INLOOP, 

7di 

7057 j 

536S 


7-2 

0 05 7 4 

5757 


7 *l J 

0 :>75 

2357 

found. 

744 

CT576 

5757 


745 




TUfe 


C603 


7 c 7 




7 • 

,•> i.? 

457 t 

\: i T , 

7 4 9 

? v* •' v? j 

7?r*j 


75? 

0 

46 72 


751 

20603 

5273 


75? 

i* 0 3 0 a 

1050 


753 

v ~ 3 

3237 


’54 

f 0 ? i h 

4571 


7 55 

0 ? /- ? 7 

2003 


756 

2 g 6 1 2 

1045 


757 

0061 l 

3271 


753 

' 00612 

1413 


759 

2 6 1 3 

3045 


780 

C ? s> 1 a 

4501 


761 

00515 

4435 


7 6? 

e ? 6 i b 

2303 


733 

006 17 

C0P0 

- 

734 

00620 

456b 


735 

00621 

2?00 


783 

00622 

5226 


767 

C0623 

aa35 


763 

07624 

3151 


769 

00625 

1207 


770 

00626 

4570 

TRYSTEP 

771 

00627 

3756 


7 7 ? 

00630 

4501 


773 

00631 

4570 


774 

•0 06 3? 

2000 


775 

G3633 

4435 


776 

0063a 

2270 

GOTSTEP 

777 

00635 

e’00 


778 

C Z it 3 6 

4502 


779 

00637 

0000 

NEXTVAP 

763 

00640 

0033 


731 

00641 

0200 


762 

00642 

4435 


753 

00643 

3467* 


76a 

00644 

4260 


735 

00445 

2672 


7S6‘ 

, 3 2<6 a 6 

52-53. 

• .. 

7 67 

00647 

3000 


788 

00650 

1024 


769 

02651 

1324 


790 

03652 

7703 


791 

00653 

1020 
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/ 

SNA Cl* 


JMP 

FOUNO 


ISZ 

IS0EX1 


ISZ 

GCTEMP 


JW3 

fisdllp 


JMP I 

FI SO I 7 


132 

F I sD IT 


Jyp r 

FI so IT 


P A r :E 



05T 

ST?£ /A V A P I A (j L £ 

7 " ? ? 



JMS I 

PFISOJT 


J"P 

SEXT£CR 


TAD 

WORD 


DC A 

St-XTVAR 


GE T♦MUST3E /CCR 3 

OR *\ * 

20? 0 



TAD 

LCCCTR 


OCA 

LOCTEMP 


TAQ I 

IS0EX1 


OCA 

LCCCTR 


JMS I 

PEVAL 


FESTER 



F$T*Fw 

DwFORLlM-, 


FEXIT 



ISXT 

/(CR) 

OR *\* 

2000 



J“p 

TRYSTEP /NO 


FESTER 



FLD 

ONE 


F JMP*F 

wO*GOTSTEP«, 


HUSTSE 

/'STEP 


3756 

• 


Jm$ I 

PEVAL 


MU3T8E 

/(CR) 

OR *\* 

230? 



FESTER 



FST*Fw04F0RSTEP*. 


FEXIT 



JMS I 

PGETADDR 



2 

0 

0 

FESTER 

FlOI ADDRESS 

FAD*Ffc,0*F0RSTEP-, 

FST*B<WD*,*VA«T£Mp 

F53*FwD«>FORLIM-* 

FEXIT 

TAD ACS 

TAD FORSTEP 

SMA CLA 
TAD ACi 


PAL8-V9 / / 


792 

00654 

7640 

SZA ClA 


793 

03655 

5263 

JMP 

fordone 

79a 

00656 

4435 

FESTER 


795 

00657 

3704 

fld»s*wd*,-vartemp 

7 9fc 

00660 

2467 

F5TI 

adoress 

797 

00661 

0000 

FEXIT 


798 

0C662 

5503 

JMP I 

PEXECUTE 

799 

0P6fc 3 

1271 

foroose,tao . 

LQCTEMP 

830 

00664 

3045 

DCA 

uOCCTR 

801 

00665 

2063 

ISZ 

F0RCT 

632 

00b66 

2053 

ISZ 

GOTEMp 

603 

03667 

5265 

JMP 

. -2 

804 

03673 

5503 

JMP I 

PEXECUTE 

805 

20671 

0000 

LOCTEMP,0 


808 

00672 

0557 

PFISOIT,FISOIT 


807 

00673 

4477 

NEXTERR,JMS I 

PERR0R 

638 

0067a 

1605 

TEXT 'NEXT* 

809 

00675 

3024 



810 

03676 

0330 



611 

00677 

4571 

RETURN, GET*MuST8E. /(CR) 

812 

30700 

2030 

2000 


813 

02701 

1165 

TAO 

GSBPTR 

814 

00702 

1322 

TAD 

M50LIST 

815 

00703 

7650 

SNA CLA 


816 

00704 

5313 

JMP 

RETNERR 

8 IT 

03735 

7243 

CLA CMA 


818 

00706 

1165 

TAO 

GSBPTR 

819 

03707 

3165 

OCA 

GSBPTR 

823 

00710 

1565 

TAD I 

GSBPTR 

621 

037 1 1 

3345 

OCA 

LOCCTR 

622 

03712 

5503 

JMP I 

PEXECUTE 

823 

00713 

4477 

retnerr.jms I 

PERWQR 

62a 

007 14 

2205 

TEXT 'RETURN* 

625 

03715 

2425 



826 

007 16 

2216 



827 

3371 7 

3330 



628 

03720 

0353 

MG0LIST,-G0LI5T 


829 

03721 

0300 

FORLIM, 01013 


833 

00722 

0000 



831 

00723 

3300 



832 

3072a 

0300 

FORSTEP,0|O 


833 

32725 

0C20 



83a 

33 7 26 

0300 

SGN, B 


835 

00727 

44 35 

FESTER 


838 

30730 

3100 

FSGfc 


837 

03731 

3205 

FlD»F„D*m\50NE». 

638 

03732 

0150 

FSLt 


639 

03733 

3151 

fld 

ONE 

843 

00734 

0300 * 

FEXIT 


841 

00735 

5726 

JMP J 

SGN 

342 

007 36 

6014 

MNSCNE, 6014I0J3 


843 *• 

03737 

3020 



844 

30743 

0330 • 



8-5 

337-1 

03 0« 

PUTCH, 0 


846 

02 7 «2 

3326 

OCA 

SGN 
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6 a 7 
648 
64 9 
650 . 
AM 
85? 
85 3 
6 54 
855 


0C743 1326 

00744 

00745 1 J 74 

00746 7643 

3?747 ^357 

£?75g 1344 

^ * i i ?6 
££752 3237 

32753 3i?b 


TAO 

p cC um, ano 
TAO 
5 Z A 
JMP 
TO 
TAO 
CCA 
CCA 


SGN 
03 77 
C77S3A 

CLA 

P N 0 c R 
PCC-. NT 
CGlu^\ 

N £ V T v a c 
COLUMN 


/IS IT A C.R, 

/\0P£. 

/a co *n extra places 
/SAVE COLUMN POSITION! 


POP GOOD 


luck. 


/DAS 

IC.16E 



656 

S775a 

123? 


857 

£0 755 

0376 


856 

00756 

7110 


859 

07757 

7; 70 

P\0C9, 

860 

00760 

3^37 


661 

0076! 

1 3?fc 


862 

00762 

0375 


663 

00763 

7440 


864 

00764 

3 365 


865 

00765 

7640 

07643 A 

666 

03766 

2126 


667 

00767 

132b 


666 

00770 

4777 


669 

0077'l 

2237 

■ 

870 

03772 

5370 


671 

87? 

873 

00773 

5-7 41 


6 7<i 

00774 

7765 

07763A, 

875 

00775 

0140 

O140A, 

876 

0077fc 

0003 

PUTXPA, 

677 

678 
879 
860 
881 
682 
683 
664 

00777 

7003 

jputch, 

885 

666 


1000 



PAL6-V9 

Tad sextvas 

AND PUTXPA 

CLL PAP 

CLl Cml c*a pas 

CCA NEXTVAP 

Tad SGN 

ANO 01404 

52 a 

TAO O7640A 

5ZA CLA 

IS* COLUMN 

TAD SGN 

JMS I JPUTCH 

ISZ NEXTVAR 

JMP .. 2 

JMP I PUTCH 


7763 

140 

0 

PUTER 


PAGE 


/ / PAGE 3 


" - 'W -U " u « fc * C * 

'ah StvMe'SJ 1 ;; ' ,ull cm * p ‘" eb » 

/J^p N ?J! b 1NV ^ T ASD divide «* 2 again. 


/INCREMENT the counter 

/GIVE NULL5 UNTIL IT'S SATISPIED. 


/NULL AFTER C»R, WORO. 


887 

688 

01000 

4603 

START, 

669 

01001 

560? 


690 

012-32 

■ 2440 

- 

891 

692 

01003 ' 

7407 

XRESTAi 

893 

£1034 

0000 

Eval, 

694 

01005 

4177 

695 

01006 

1204 


896 

01007 

4504 

EVALGO, 

897 

01010 

1365 

898 

01011 

4 504 


899 

01012 

5216 


900 

01013 

1364 

isumin, 

901 

01014 

4504 

902 

01015 

4177 

GETOPR, 

903 

01016 

4566 


904 

01017 

3577 


905 

01020 

7410 


906 

01021 

5213 


907 

01022 

4566 


908 

01023 

3600 


909 

01024 

74 10 


910 

01025 

5215 



JMS I XRESTA 

JMP I , M 

SCRATCH" 

ISET 

0 

JMS GETWO 

TAO E v A L 

JMS I PPUSH 

TAO 04014 

JMS I PPU5H 

JMP GETOPR^l 

TAD 04213 

JMS I PPUSH 

JMS GETWD 

ISIT 

3577 

SKP 

Jmp I Sum i n 

ISIT 

3600 

SKP 

JMP GETOPR 


/REST FLAGS ANO DEVICES, 
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PAL8-V9 


•Ml 
<M2 
91 3 

914 

«15 

916 

9iT 

•Me 

9 • 9 

<j;» * 

9*? I 

9:? 
923 
9 24 
925 
9? e> 
927 
92.8 


CJC26 
31027 
El 233 
01351 
£>! ? J 2 
51233 
5! r* 3 a 
31535 
3 ! ? 36 
?lf 37 
3 ! ? « 3 
212*1 
31C<** 
C10»3 
01044 
212»«S 
a i a a 6 

S 1 3 4 7 


4596 

5795 

5235 

9224 

4573 

37 61 

5527 
65fc6 
7 223 

5§j5 
3t ? 6 
3277 
! 3 5? 
32?3 
4 56? 
3755 
5274 
1275 


!3!T 

3755 

JMP 

J*S 

*U3TBE 
3761 
JMP I 

NQPAREN, isit 

72?* 

JMP 
OCA 
OCA 
1 *0 
OCA 

T*IS!T 

3755 

JMP 

’AC 


/'(* 

NCPABfeN /NO 
£ V AL 

/') ‘ 


P r ,0 T 0PR 


/A VARIABLE 


'. r T v AX /NO 

ONESS 

7 4 c 5 < - 

word 

v» 0 t E m p 

/'(' 

GQTSS /NO 


/',• 


9 29 

01250 

4524 

JMS I 

PPUSM 

9 $5 

01051 

4224 

JMS 

EVAL 

931 

0125? 

4566 

ISIT 


932 

01353 

3"fe3 

3783 


953 

21254 

5284 

JMP 

ONEOIM 

934 

51055 

45 36 

JMS I 

Pf IX 

935 

01056 

4504 

JM5 1 

PPUSH 

936 

01057 

4234 

JMS 

Eval 

937 

01062 

4528 

JMS I 

PFIX 

938 

0108! 

3277 

OCA 

TuQSS 

939 

3106? 

4525 

J M $ I 

PPCP 

940 

21063 

5286 

JMP 

, *3 

94 1 

01284 

327 7 

oneoim, oca 

T*QSS 

9«2 

01385 

4508 

JMS I 

PFIX 

9«3 

01266 

32-»6 

OCA 

ONESS 

944 

01267 

4573 

M'JSTBE 


945 

01070 

3761 

3761 


946 

01071 

4535 

JMS I 

PPCP 

947 

31072 

3275 

OCA 

WDTEMP 

946 

01073 

4J77 

JMS 

GETwO 

949 

01074 

4522 

G0TS5, J.MS I 

PGETAOOR 

953 

01075 

0330 

wdtehp, g 


951 

01076 

0220 

ONESS, 0 


952 

01077 

Z 22 J 

TwOSS, 0 


953 

21130 

4435 

FENTER 


95a 

01121 

3467 

PLOI 

ADDRESS 

555 

01102 

0300 

FEXIT 


956 

. CJ103 

5724 

JMP I 

,♦1 

957 

31104 

1203 

OPOONE 


958 

01105 

4575 

NOTVAR, JMS I 

PISI T LIT 

959 

01106 

5310 

JMP 

ISITFUN , 

963 * 

01107 

5507 

JMP I 

P&OTOPR , 

9bl 

01110 

1450 

ISITFUN,TA0 I 

WORD 

982 

011 11 

1362 

TAO 

03754 

983 

01112 

7510 

SPA 


964 

01113 

5500 

JMP I 

PSXERR 

985 

01114 

7450 

SNA 



/*)• 


/*«224, WHICH IS BEGINNING 0* 
/IS IT A LEGAL FUNCTION? 

/NO, EXIT WITH MESSAGE, 

/WAS IT # FN* 


/BASIC.L8E 
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966 

31115 

4177 

967 

01116 

4504 

968 

01117 

4571 

969 

ei 120 

3755 

970 

01121 

4204 

971 

01122 

4525 

972 

01123 

1330 

973 

01124 

3325 

97« 

31125 

7422 

975 

01126 

5727 

976 

01127 

1200 

977 

01130 

4731 

978 

01131 

5«53 

979 

01132 

5616 

980 

01133 

5600 

98} 

01114 

6200 

982 

01135 

6114 

983 

01136 

6000 

984 

01137 

54 12 

985 

01140 

6425 

.9 86 

01141 

0726 

987 

01142 

6434 

988 

01143 

5353 

989 

01144 

562’4 

990 

01145 

1761 

991 

01146 

6441 

99? 

01147 

6441 

993 

01150 

6441 

994 



995 

01151 

1770 

996 



997 



998 



999 




1022 

1001 

1022 

1003 

1004 

teas 

1026 

1027 

1008 21152 6441 

1009 01153 7«2 1 

1010 01154 6441 

1011 

1012 01155 5547 

1013 

U14 01 156 6441 

1015 

1016 
1017 
1218 

1019 

1020 


JM$ GETWD 

JM$ I . PPUSH 
GE T♦MuSTBE 
3755 

JMS EVAL 

JMS I PPCP 

TAD FJump 

OCA , ♦ 1 

HLT 

JMP I .♦! 

FNEXIT 

FJUMP, JMS I FUNTA8 

funtab, fn 

COS 

TAN 

ATN 

LOG 

EXP 

SGR 

ASS 

SGN 

INT 

UNO 

SIN 

PUT J 

SXEPR 

SXERR 

SXERR 

GETJ 


IFN2RC machine* 

AOC 

T5T 

TIM 


> 

IFZERQ machine* 

SXERR 

.TST 

SXERR 

» 

TAB 


SXERR 


I F N z R Q MACHINE* 

CLS 


/YES,SKIP OVER LETTER 


/POINTER to PUT CHAR ROUTINE, 

/for the misc. functions. 


/GET A CHAR from THE TTY, 

o 


/"NCRhal" A-0 CONVERSION RETURN 
/"TEST CHARACTER BUFFER", 

/TIME (• OF CLOCK TICKS), 


/tab function is implemented. 

/UNlMpcEHfNTED USER FUNCTION, 


/GET STATUS OF LAST TICK 
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1021 

1022 

tr23 



eic 


/GET CLOCK COUNT SUFFER. 



ADB 


/GET CONVERSION FROM BUFFER 

102 a 

1525 

152 b 




» 


1027 

1528 



JFZERO 

MAChINE< 


12 24 

1535 

01157 

644 1 

SxERR 



1C 31 
1032 
1533 

123a 

Cl 1 60 
01161 

&4«1 
644 1 

S < £P R 
SZf.RR 

> 


i C 55 

15 3b 




. 


1537 

1038 

1234 

01162 

3754 

03754, 3754 



■ 1040 

10 a 1 

i • ■ > _•» 

21163 

01164 

4314 

«213 

G4?l“, 4314 

6213 



i£43 

1044 






1045 

104b 

1047 

1545 

1044 

1050 

1 C51 
1052 






1553 

1054 






1055 

105b 
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MCRO 


1451 

01735 

2050 

ISZ 

WORD 













/BASIC,L8E 
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U ' 


14 5? 

31736 

2357 


ISZ 

bcdefg" 

1653 

81737 

5532 


J HP 

.-5 

U 5 4 

31740 

1C63 


TAD 

FCRCT 

145b 

31741 

3357 


OCA 

bcdefg 

1656 

31742 

1363 


TAD 

PPFCRLIS 

1457 

31743 

325.3 


OCA 

WORD 

16 5 * 

31744 

5352 


JMP 

, *6 

US9 

01745 

1356 


TAD 

ascoef 

1 '.62 

81746 

1453 


TAD I 

WORD 

1 * : M 

21747 

3452 


CCA I 

WORD 


01752 

28 53 


isz 

WORD 

1653 

01751 

2253 


ISZ 

WORD 

1464 

01752 

2357 


ISZ 

3CDEFG 

1465 

31753 

53-5 


J M ? 

,-6 

1466 

01754 

1035 


tad 

PSYMTAB 

1467 

21755 

5674 


JMP I 

GETBL* 

14 68 

01756 

777 4 

•AfiCDEF , 

• 4 


1469 

C17 5 7 

0030 

eCDEFG, 

0 


1 4 7 2 

01763 

7776 

PPFORLI 

,FORLIST+i 

1471 

C1781 

0282 . 

PUTJ, 

0 


1472 

01762 

4536 


JMS I 

PFIX 

U'i 

01763 

7 ?: .3 


CLA 


1474 

31764 

1016 


TAO 

AC 3 

1475 

01765 

4433 


JMS I 

PPUTCH 

1476 

01766 

4546 


JM$ I 

panorm 

1477 

01767 

5761 


JMP I 

PUTJ 

1478 






1479 






146? 

01770 

0000 

GET J, 

0 


1481 

01771 

4776 


JMS I 

PBEGFIX 

1482 

01772 

4432 


JMS I 

PGETCH 

1483 

01773 

3016 


OCA 

AC3 

1484 

01774 

4546 


JMS I 

PANORM 

1465 

01775 

5770 


JMP I 

GETJ 

I486 






1487 

0tT76 

3762 

PBEGFIX 

,BEGFIx 


1CS8 
1469 
1490 
14 91 
1492 
U93 

1494 

1495 

1496 

1497 

1498 


1499 

• 

2000 

PAGE 

* 

1500 

1501 
1522 

02000 

2134 

notnow, ISZ 

NOINT 

1503 

02001 

2050 

ISZ 

WORD 

1504 

02002 

1450 

tad I 

WORD 

1525 

02003 

7450 

SNA 


1506 

02004 

5232 

JMP 

INSERT 


/BASIC 

,L8E 





PALS 

1507 

02005 

3371 


DC A 


LOWLOC 

1503 

02006 

3450 


OCA 

I 

WORD 

1509 

02007 

1371 


tad 


LOWLOC 

1510 

02010 

3045 


OCA 


LCCCTR 

1511 

02P11 

4510 


JMS 

X 

PPASSCR 

1512 

02012 

1371 

MOVE, 

TAO 


LOWLOC 

1513 

02013 

7041 


CIA 



1514 

02014 

1004 


TAO 


COOELOC 

1515 

02015 

7650 


SNA 

CLA 


1516 

02016 

5230 


JMP 


INSRT5 

1517 

02017 

7340 


CL* 

CIL 

CMA 

1518 

02020 

1371 


TAD 


LOWLOC 

1519 

02821 

3371 


OCA 


LOWLOC 

1520 

02022 

7340 


CLA 

CLL 

CMA 

1521 

02023 

1045 


TAO 


LOCCTR 

1522 

02024 

3045 


OCA 


LOCCTR 

1523 

02025 

1771 


TAD 

I 

LOWLOC 

1524 

02026 

3445 


OCA 

X 

LCCCTR 

1525 

02027 

5212 


JMP 


MOVE 

1526 

02030 

1045 

INSRT5 » 

TAD 


LOCCTR 

1527 

02031 

3004 


OCA 


COOELOC 

1528 

02032 

1057 

INSERT, 

TAO 


FPTR 

1529 

02033 

1040 


TAO 


mlxnbuf 

1530 

02034 

7040 


Cm a 



1531 

02035 

3057 


OCA 


FPTR 

1532 

02336 

7326 


CLA 

CLL 

cml rtl 

1533 

02037 

1057 


TAD 


FPTR 

1534 

02040 

7450 


SNA 



1535 

02041 

5313 


JMP 


FIXLIN 

1536 

02042 

7040 


CM A 



1537 

02043 

4563 


JMS 

I 

PCHKFIT 

1538 

02044 

1004 


TAO 


COOELOC 

1539 

02045 

3045 


OCA 


LOCCTR 

1540 

02046 

1437 


TAO 

X 

PLXNBUF 

1541 

02047 

7001 


I AC 



154? 

02050 

3013 


OCA 


INDEX! 

15«3 

02051 

1413 


TAD 

I 

INDEX 1 

1544 

02052 

3073 


OCA 


operand 

1545 

02053 

1 4 i 3 


TAO 

I 

I NOEXI 

1546 

02054 

3074 


OCA 


OPERASOM 

1547 

e2055 

4336 


JMS 


COMPARE 

1548 

02056 

5261 


JMP 


NOTFRST 

1549 

02057 

4361 


JMS 


SU8RA 

1550 

02060 

5303 


JMP 


transf 

1551 

02061 

4510 

notfrst 

, J M S 

I 

PPASSCR 

1552 

02062 

4336 


JMS 


COMPAR 

1553 

02063 

5261 


JMP 


NOTFRST 

1554 

02064 

1045 


TAO 


LOCCTR 

1555 

02C65 

3360 

. 

OCA 


L3TL0C 

1556 

02066 

1004 


TAD 


COOELOC 

1557 

02367 

3045 


OCA 


LOCCTR 

1558 

02070 

4361 


JMS 


SUBRA 

1559 

02071 

4177 


JMS 


GETwD 

1560 

02072 

1050 

MOVLUP, 

TAO 

•• 

WORC 

1561 

02073 

3772 


OCA 

I 

PUTLOC 


/GETS A CHARACTER FROM THE TTY, 
/Clean up The FAC 

/FECTM A CHAR, 

/SAVE IT, 

/AND NORMALIZE AC, 

/AND RETURN NO*. 


/RESET “C SWITCH SO NO INTERUPT NOW. 
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1562 

3207 a 

2372 


IS2 

PuTLOC 

IS* 5 

023*5 

<ii 7 7 


JMS 

GETmQ 

1 F *6« 

C?C 78 

i 360 


TAO 

lstloc 

J KfcN 

jj» ^ ? 7 

?S*11 


c ! A 


1 5 *f A 

0?! 

13«5 


TAD 

locctr 


02101 

76«3 


s:a ct 

.A 

is&* 

«aie> 

52?2 


jw?> 

HOVLUP 

1569 

? 2 l C 3 

1237 

T«A\SF, 

TAD 

p^InS’JF 

1 3 Fp 

32124 

3263 


DC A 

Gf Tw 

IS?! 

32125 

1 4 641 

tralup. 

7 AD I 

GPTft 

1ST? 

i* £ i 2 6 

2 753 


152 

GP’R 

T 3 ?3 

?,>•%} 

3772 


OCA I 

PUTlOC 

157 a 

E ? 1 1 2 

2 2^2 


I SZ 

PUTLOC 

1 ‘-75 

2?;n 

2357 


ISZ 

FP7R 

15*6 

02112 

5325 


J 

TRALUP 

1577 

Pci 1 3 

4561 

FIXLIN# 

j.-s r 

PLINFIX 

1578 

eai 14 

552C 


JMP I 

PEDIT 

15 7 9 






1 5 5? 






1531 






15 32 






1563 

cans 

2223 

IGNORE, 

0 



/THIS ROUTINE LOOKS FOR A » OR A C, 
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1534 

22116 

4567 

GET*ISIT 

1585 

02117 

5200 

5022 


1536 

02123 

5327 

JMP 

NCTBAD 

1537 

021*1 

4177 

JMS 

GETwD 

1553 

02122 

1252 

TAD 

word 

1539 

32123 

0370 

ANO 

077 

1590 

22124 

7640 

5ZA CLA 


1591 

22125 

5321 

J HP 

, • 4 

1592 

2212b 

5316 

JMP 

IGNOREM 

1593 

1594 

02127 

4575 

NCTBAD, JMS I 

PISITLIT 

1595 

22133 

7410 

SKP 

1596 

22131 

5316 

JMP 

IGNORE*! 

1597 

22132 

4566 

ISIT 

1598 

22133 

2200 

2020 


1599 

02134 

5316 

JMP 

IGNORE*1 

1600 

02135 

5715 

JHP I 

IGNORE 

1622 

1623' 



P ” 



/TEXT? 

/NOPE, 


ZENO OF TEXT? 

/NOPE. 

/YEP, GET NEXT ITEM, 

/IS IT A literal? 

/YES. 

/"\* 'or c.r. 

/ NO 

/YES. RETURN TO CALLER, 


1604 







1635 

. 






1636 







1607 







U23 

02136 

0030 

COMPARE 

,0 



1629 

02137 

4567 


GET*IS IT 

/A L 

1610 

02140 

0000 


0000 



161 1 

02141 

5356 


JMP 

IAMLESS 


1612 

02142 

1350 


TAO 

WORD 


1613 

02143 

7301 


I A C 



1614 

02144 

3313 


OCA 

INDEX1 


1615 

02145 

1413 


TAO I 

INDEX! 


1616 

02148 

7141 


CLL CIA 



1617 

02147 

1073 


TAD 

cperano 


1616 

02150 

7640 


3ZA CLA 



1619 

02151 

5355 


JMP 

FRSTNE 


1620 

02152 

1413 


TAO I 

IN0EX1 


1621 

02153 

7141 


CLL CIA 



1622 

02154 

1074 


TAD 

OPERAND.*! 

1623 

02155 

7620 

frstne, 

SNL CLA 

* 

/IS 

1624 

02156 

2336 

IAM U ESS ( 

,ISZ 

COMPARE 

/YES 

1625 

02157 

5756 


JMP I 

COMPARE 


1626 

0216? 

0330 

LSTLOC, 

0 



1627 

22161 

0330 

SUBRA, 

3 



1628 

02162 

1057 


TAO 

FPTR 


1629 

02163 

7100 


CLL 



1633 

02164 

1004 


TAO 

CODELOC 


1631 

02165 

3004 


CCA 

COOELOC 


1632 

02166 

1004 


TAD 

cqdelcc 


1633 

02167 

3372 


OCA 

PUTLOC 


1634 

02170 

5761 


JMP I 

SUBRA 


1635 

02171 

0300 

lowloc, 

0 



1636 

02172 

0300 

PUTLOC, 

0 



1637 







1638 














. <0 


i* * 


/BASIC.L8E 


PA18-V9 


1639 
ifcaa 
16*1 
1 64? 
1643 

16 44 

16*5 

1646 

1647 
1 64$ 
1649 

1652 
1651 
165? 

1653 
16S<* 

1655 

1656 

1657 
165$ 
1659 
l 6 6 C 
1661 
1662 

1663 

1664 

1665 

1666 
1667 
1665 

1669 

1670 

1671 

1672 

1673 
167a 
16 75 
1 6 7& 

1677 

1678 

1679 
1650 
l 68 1 
1662 
1683 
168a 
1665 
1686 
1687 

1658 

1659 
' 1690 

1691 

1692 

1693 
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^1 7 3 

321 7 a 
2217 5 
221 7*> 
0217 7 

£ « 2 Z 2 
£222? 


4177 

7 juh 

1 » \ i 

1 1 3 1 
1131 

1361 

3357 


PRINT, 


Jm S 

CL* CLL 
T.O 
TAD 
7*2 

TAC 

OCA 


G E T 4 r> 

C“A RTL 

OUTCEV 

SuTDEv 

cure c v 

CU3 

T*ZDTm 


02202 
€2235 
022C4 
'22235 

4566 
37 63 

5207 

5 ? 7 7 

ISIT 

3763 

JMP 

JMP 

PRINTC 

PS?I\^< 

02236 

4177 

"PrYntg, jm 5 

GETwO 

02237 

02210 

022M 

02212 

3345 

4566 

2303 

5216 

PRINTC, OCA 
ISIT 
2000 
JMP 

TABFLG 

N3PCR 

02213 

02214 

22215 

45J4 

6531 

5533 

JMS I 
CRLF 
JMP J 

PPRINTXT 

pexecute 

02216 
0221 7 
02220 
02221 

4566 

3763 

5316 

5303 

NOPCR, ISIT 
3763 

JMP 

JMP 

prent 

PRINCCM 


C2222 

02223 

22224 

22225 

22226 
2222 7 

22230 

22231 
02232 
22233 
2223a 
22235 
>£2236 
22237 
22240 
2?2«* 1 
22242 


4566 

5002 

5236 

4177 

1053 

7012 

7212 

7012 

4t‘S 2 

1353 

4263 

5225 

124 1 
5642 
1037 
2242 
1345 


prinths 

PR I NQuQ 


# ISIT 
5020 
JMP 
, JMS 


ngttxt 

GET*D 


NOTTXT., 

PEVALGO 

PP»I\FE 

PRlNRET 


TAD 

wOR.O 

RTR 


RTR 


RTR 


JMS 

PRINHAF 

TAD 

WORD 

JMS 

PRINHAF 

Jmp 

PRIN5U0 

tad 

• PPR-INRET 

JMP J 

pevalgo 


/77r5 3 !3 S F0p''0LVlCF^HECK CnMBI,W€n KITH ™ E GET 1 * ST ^C71 ON BEL 
/•'oltiplv Ofvice ev 3 . * 

/s ; T * AT LPT«6 , PTp* 3 1 AND TT v. e 

'/•'i '*'■> 72, Thus T7y.7?, L pt,.« 3 

/A6C SAVE FOR FUTURE .USE. 

/CHECK FOR FIRST COMM*. ONCE ONLY CHECK. 

/vo. continue checking. 

/yep, give Blank, then tab over, 

/GET NEXT ELEMENT AFTER A TEXT ELEMENT. 

/RESET Tab INDICATES, 

/CHECK TO SEE IF CARRIAGE RETURN. 

/VOT A CARRIAGE RETURN. CONTlNUt CHECKING. 


/is IT A COMMA (*,") 

/MO. FINISH CHECKING BELOW. 

/IT IS, PROCESS THE COMMA NOW. 

/TEXT 


.PRINRET 

,tao 


tabflg 


/WAS THERE A TAB PRESENT? 


/BASIC,L6E 


PAL6-V9 


/ / 


1694 

1695 

1696 

1697 

1698 

1699 

1700 

1701 
170? 
1723 

1704 

1705 

1706 

1707 

1708 

1709 

1710 

1711 
171? 
17J3 
1714 

. 1715 

1716 

1717 

1718 

1719 

1720 

1721 

1722 

1723 

1724 

1725 

1726 

1727 
1729 
1729 
173? 

1731 

1732 

1733 
173a 

1735 

1736 

1737 

1738 

1739 

1740 
1 74 J 

1742 

1743 

1744 

1745 

1746 

1747 

1 748 . 
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32243 
02244 
32245 
02246 
02247 
32250 
02251 
02252 
02253 
02254 
32255 
02256 
02257 
02260 
32261 
02262 
02263 
02264 
02265 
02266 
02267 
02272 
222 7 1 
02272 
C227J 
02274 
02275 
3227b 


7640 

5762 

1363 

4346 

1024 

7710 

5254 

1051 

4433 

4517 

1051 

4433 

5207 

0030 

0070 

7453 

5206 

1326 

7450 

5660 

1062 

0273 

1351 

3324 

4346 

1324 

4433 

5663 


SZA 

CLA 


JMP 

I 

TABTHR 

tad 


014 

JM3 


check* 

tad 


ACS 

SPA 

CLA 


JMP 


.♦3 

TAD 


0240 

JMS 

I 

PPOTCh 

JMS 

I 

POuTNuM 

tad 


0240 

JMS 

I 

Ps> UTCH 

JMP 

0 


PRINTC 

AND 

SNA 


077 

JMP 


PRINTC 

TAD 

SNA 


0C7736 

JMP 

I 

PRINHAF 


TAD 

AND 

tad 

OCA 

JMS 

tad 

JMS I 
jmp : 


02 

077 

0240 

ACS 

CHECK* 

ACS 

PPuTCh 

PRINHAF 


02277 7203 PRIn9lk,Cla 

02300 1051 

02331 4433 

02322 4346 


02304 7 a 5 3 

22335 5312 

02306 1327 

£2307 7533 

02310 5334 

02311 5277 

02312 4567 

32313 2003 


TAD 

0240 

JMS I 

PPuTCh 

JMS 

CHECK* 

PRlNCOH,TAD 

CCLU M N 

SNA 


JMP 

PRInSE m 

Tad 

0776? 

SMA 


JMP 

.•4 

JMP 

prinpl* 


/TEP. EXECUTE TAB CORRECTER. 

/SEE IF ROOM FOR 13 PLACESC1M2) 


PRINSEM,GET*ISIT 


32314 

32315 

32316 
0231 7 
02323 
02121 


7a J 3 
5533 
4566 
3762 

7410 

5312 


3232? 4566 

02323 3763 

02324 5222 

02325 5277 


02326 

S22327 


77 16 



2030 

S 


5«J> 

■ ' ~ 

prent, 

Jmp I 
ISIT 
3762 
SKP 

Jmp 

PEXECuTE/YES 

/•f 


PRINSEM /v p 5 


ISIT 

/., * 


3763 



JMP 

PRj6T*s 


JMP 

PRINPU* 

007716, 

7736 


0776?, 

7762 



/GO BACK AND GET NEXT. 


/GO SKIP PAST TEXT ELEMENT AND CHECK NEXT. 


/save character for a secono. 

T ° SEE IF it 'll fit on thf line 
/RESTORE THE CHARACTER, 


/make sure ac is zero, 

/CHECK to SEE if room for CNF more, 
/see if column on comma bounory, 

/yep. 

/SUBTRACT a uITTLE an check AGAIN, 
/too far? • 

/NCPE. 

/YEP, GIVE BLANK AND LOOP AGAIN, 

/ fCR) OR '\* 











r 
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1 T <i ^ 

1753 

HHj 

i t:>? 
1 ’53 


r?5?e 
Z? <3 i 
023 3? 
25 3 5 3 
02334 


unfix. 


lfxlup, 


3 

Tl ?. 
CCA 
JM$ 
TAP 


CC0EL3C 
LCCCTs 
G E T a 0 

Wpfi; 


17 54 

023 45 

7 660 

S 7 * CLA 


1 >55 

? 35 3 6 

5> 30 

JMP I 

L!N r IX 

1756 

f 3 3 7 

■2 ? S 8 

ISZ 

hCRO 

t >5? 

r* ‘3 \ iX p 

>24 0 

Cl. A CPA 

1756 

0 214' 

10 45 

TAD 

LOCCTR 

1>5R 

0 ■' 3 4 ? 

3 4 5 0 

d:a i 


1 7 S O 

S*? 34 3 

45! 3 

JMS ' I 

yp aSSCR 

1 ~ * 1 

02344 

5 s >3 

JFP 

LF »’Lw ; P 

17 62 
IT-53 ■ 

1 >64 

30345 

0.030 

7 ft R F L G, 3 

1765 
176 6 

1 ?6? 
17bS 

02346 

0 8 ' il* 

CHECK*, 3 


1 7 6R 

02347 

1126 

TAD 

COLUMN 

!?*0 

• 22 SG? 

?r ; iO 

C M A 

1771 

52351 

1357 

tad 

TwIOTH 

177? 

2.2352 

7 730 

SMA CLA 

1773 

02353 

5 7 26 

JHP I 

check w 

1774 

02354 

4514 

JMS I 

OPWINTXT 

1775 

02355 

6531 

crlf 

1776 

02356 

5746 

JMP I 

CHECK* 

1777 

1776 

02357 

0000 

TLIDTh, z 

17 79 

32380 

2214 

014, 14 


1780 

02361 

01 12 

oua, lie 


1781 

178? 

02362 

6353 

TABTNR, taboo 


1783 

1784 

1785 

1786 

1787 

02363 

0073 

MENOPOL,-ENOPOL« 

>1 

1788 

1739 

02364 

0000 

push, 0 

1790 

02365 

3*-3o 

DC A 1 

PDL 

1791 

02366 

2336 

152 

PDL 

179? 

02367 

1036 

TAO 

POL 

1793 

02370 

1383 

tad 

MENDPOL 

1 79« 

02371 

7840 

SZA CLA 

1795 

02372 

5764 

JMP I 

PUSH 

1796 

02373 

44 7 7 

JMS I 

PERROR 

1>97 

02374 

0532 

TEXT 'EXPRESSION* 

1798 

02375 

2022 

- 


1799 * 

1800 
1801 
1802 
1803 

/BASIC 

02376 
02377 . 
32400 
02401 

.L8E 

0523 

2311 

1716 

czea 

- 

t, 

PALI 


/IS 

/NO 


IT a lInEnO 


/tab founo flag. 


/This ROUTINE ChECXS for LINE too long. 
/C£ T -WERE AT NOW. 

/--hEREat-acf PLACES In OUT Chaw. 

/ADD IN WIDTH OF DEVICE, 

/TOO BIG, 

/NAM, RETURN TO SENDER. 

/YEP,GIVE C.R.l.P. 

/AND RETURN TO SENDER. 

/a IS OK SINCE IT'LL 0E SET UP CORRECTLY. 
/MAGIC CONSTANT, 

/WDTH OF TTY PAPER, 

/ROUTINE WHICH PROCESS TAB CHARACTER, 
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1804 

1805 
1606 
183 T 
1808 
18 09 
1810 
181! 
1812 

1813 

1814 

1815 


1816 

02402 

4541 

EXIT. 

JMS I 

PCCWT 

1817 

02403 

1007 


TAO 

0215 

1818 

02404 

4433 


JMS I 

PPUTCM 

1819 

02405 

1010 

EDIT. 

TAD 

0212 

1820 

02406 

4433 


JMS X 

PPUTCH 

1821 

02407 

1133 


TAO 

CUT02 

1822 

02410 

3131 


OCA 

OUTCEV 

1823 

024H 

4543 


JMS I 

CNCLR 

1824 

02412 

1362 


TAD 

PXXTHEN 

1625 

324 13 

4 524 


JMS I 

PGETLIN 

1826 

02414 

1437 


TAD I 

PLIN8UF 

1827 

02415 

3350 


OCA 

WORD 

1828 

02416 

1453 


tad I 

WORD 

1829 

e24i 7 

7652 


SNA CLA 


1830 

02420 

5786 


JMP I 

PNOTNOW 

1831 

02421 

1010 


TAD 

0212 

1832 

02422 

4433 


JMS I 

PPUTCH 

1533 

02423 

11 33 


TAO 

0UT02 

1834 

02424 

3131 


OCA 

OUTDEV 

1835 

02425 

4566 


ISIT 


1836 

02426 

3736 


3736 


1837 

02427 

7410 


SKP 


1838 

02430 

5252 


JMP 

RUN 

1839 

02431 

4566 


ISIT 


184C 

02432 

3737 


3737 


1841 

02«33 

7410 


SKP 


184? 

02434 

5 7 6 3 


JMP I 

PLIST 

1843 

02435 

4566 


ISIT 


1844 

02436 

3735 


3735 


1845 

02437 

5254 


JMP 

ImmEO 

1846 

02440 

l 365 

SCRATCH 

,tao 

PP£S«$VM 

1847 

0244 1 

3004 


CCA 

COOElOC 

1848 

02442 

1364 


TAO 

pxxeof 

1849 

0244 J 

3765 


CCA I 

PP£RM5ym 

1850 

02444 

1365 


tad 

PPERMSXM 

1851 

22445 

7 001 


I AC 


1852 

02446 

3005 


OCA 

PSYMTAR 

1853 

02447 

72«0 


CLA C M A 


1884 

02450. 

3006 


OCA 

NSVWTAB 

1855 

02451 

4537 


JMS I 

PRESET 

1856 

02452 

4262 

»UN, 

J*3 

Clearv 

1857 

02453 

5503 


JHP I 

PcxECuTE 

1658 

02454 

1037 

IMMED, 

TAO 

PLINBuF 


/WAIT FOR BUFFER TO EMPTY AND THFN CONTINUE, 

/RESET DEVICE 

/CHECK TO SEE IF “C WAS TYPED. 


/RESET I/O DEVICE, 


/'Run' 


/‘LIS' 


/'SCR' 


/RESET DEVICES AFTER SCRATCH 
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1859 

E?a55 

3345 

OCA 

LOCCTR 


02456 

1364 

TAD 

PXXtOF 

• 1«M 

02957 

3352 

OCA 

lxneno 

1*8? 

02«60 

5503 

JMP I 

PE X fc CUT 

i a** 5 





I 864 

02661 

7 C 30 

PJSET, SETUP 


18 65 





Wt >>S 

00462 

3030 

CLEARV, 2 


i n 6‘ . 

02463 

4 661 

J*S I 

PJSET 

186® 

C?vba 

5303 

JMP 

RUNIN 

i 8 6 9 

024 65 

1 i*56 

R;' V UUP, TAD I 

EPTP 

i*7«- 


.i 36 i 

■ "AO 

07200a 

S3? I 


76* : 

SIA CLA 


1ST? 

62 a 7? 

52^7 

J M P 

RLfNNQT 

is?3 

2297 1 

2056 

r sz 

EP T R 

is?« 

0247? 

1 «56 

TAQ I 

EPTR 

1875 

3?u73 

3360 

DC A 

GPTR 
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P 

18 7 6 

02474 

1460 

TAD I 

GPTR 

1877 

02975 

3456 

OCA I 

EPTR 

1878 

32976 

7410 

SK? 


1879 

3?«77 

2356 

RUNNOT, ISZ 

EPTR 

1883 

32533 

2056 

ISZ 

EPTR 

1881 

2 2531 

2256 

ISZ 

EPTR 

156? 

02532 

2356 

ISZ 

EPTR 

1883 

32503 

2057 

RUNIN, ISZ 

FPTR 

1884 

33539 

5265 

JMP 

RUNLUP 

1695 

C2505 

1361 

TAD 

PLIMIT 

1588 

02536 

3003 

OCA 

ARRLOC 

1887 

02537 

1005 

tad 

PSYMTAB 

1888 

02510 

3056 

DC A 

EPTR 

1589 

3251 1 

1006 

TAD 

NSVMTlB 

1890 

02512 

3257 

CCA 

FPTR 

1891 

02513 

5343 

JMP 

RUN2IN 

189? 

02519 

1456 

RUN2LUP,T40 I 

EPTR 

1893 

02515 

1360 

TAD 

07000A 

189* 

02516 

7640 

SZA CLA 


1895 

02517 

5337 

JMP 

RUN2N0T 

1896 

02520 

2056 

ISZ 

EPTR 

1097 

02521 

1456 

TAO I 

EPTR 

1696 

32522 

3031 

OCA 

TMP 

1699 

02523 

1003 

TAO 

ARRLOC 

1933 

32,529 

3456 

OCA I 

EPTR 

1931 

02525 

1031 

Tad * 

TMP 

193? 

02526 

4521 

JMS I 

PSTICXI 

1923 

02527 

4521 

JMS I 

PSTICKI 

!9ea 

02530 

4521 

JMS I 

PSTIC8I 

1935 

02531 

4521 

JMS I 

PSTICKI 

1936 

62532 

2056 

ISZ 

EPTR 

19C7 

02533 

3456 

OCA I 

EPTR 

1936 

02534 

2056 

ISZ 

EPTR 

1939 

02535 

3456 

OCA I 

EPTR 

1910 

e2536 

5342 

JMP 

.♦4 

1911 

02537 

2056 

RUN2NOT,ISZ 

EPTR 

1912 

02540 

2056 

ISZ 

EPTR 

1915 

02541 

2056 

ISZ 

EPTR 

1 9 1 

e254? 

2056 

ISZ 

EPTR 

1915 

02543 

2057 

RUN2IN# ISZ 

FPTR 

1916 

02544 

5314 

JMP 

RUN2LUP 

1917 

02545 

1004 

TAD 

CODELOC 

1918 

02546 

3045 

OCA 

LOCCTR 

1919 

e2547 

1125 

TAO 

PPDLIST 

1920 

02553 

3036 

OCA 

POL 

1921 

02551 

1C0« 

TAD 

CODELOC 

1922 

02552 

3046 

OCA 

REAOLOC 

1923 

£2553 

7240 

CLA CMA 


1924 

02554 

326 3 

OCA 

FORCT 

1925 

02555 

1164 

TAO 

PGOLIST 

192b 

02556 

3165 

OCA 

GSBPTR 

1927 

32557 

5662 

JMP X 

CLEARV 

I92e 

02560 

7000 

O7000A, 7000 


1929 

02561 

ee03 

PLIMIT, LIMIT 


1933 

02562 

7253 

PXXTHEN,XXTHEN 



/IS IT 
/NO 


A VARIABLE 


PAL8-V9 


/ / 
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/IS IT A VARIABLE 


/FIRST WORO OF USER AREA 
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*■ * 


i 

19?;-' 
19?3 
J9.U 
19l*> 
1 9 * * 

! 9 3 ? 
: 9 3 a 

1939 
i 940 

\ *\ 4 ’ 

; 94-3 

19^3 


02563 

02584 

315*5 

em>s 

0?567 

025 ?? 

C25>1 
325*2 
325 7 3 
3257a 


3t>00 
7532 
7??2 
23C0 
4 ?f;2 
45 J7 
« 5 4 l 
*51 4 
*525- 
5522 
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PUS*, LIST 
PK*eOF, XXECF 
Pp£Rm5*,PE-,4$YM 
P» OTNOw, nOTnCw 
J*S 
JMS I 
J*S I 
J"S I 
PFACY 
J"P i 


End, 

5 T l P * 


ClFAPy 

PRESET 

PCOwT 

PPPINTXT 

PEOIT 


/*£SET ALL DEVICES NOW, 

/AND WAIT FOR I/O TO FINISH UP 
/and GIVE The STOP message 


i o . (5 

J v„ 7 

1 940 
IvsS 

19 50 
J 95J 
1952 
1553 
195« 
1955 
1 955 . 
1957 
19 50 
1 959 
19 50 
I 9fc J 
19*3 

1 3 

195c 
1965 

I960 

1907 

1968 

19W9 

1970 

1971 
19 7 ? 

1 9 7 J 
197a 

1975 
1 9*6 
1977 

1976 
1979 
1953 
1 9 6 1 
195? 

195 3 
196a 
1985 


22000 
02601 
0200? 
02603 
02009 
C2005 
02600 
. 02607 
02610 
020 1 1 
02612 
02613 
32 619 
32615 
02616 
02617 
.02620 
02621 
32622 
02623 
02629 
02625 


2633 PAGE 


«SH GETLPET,J»S l PLINfl* 

;*;j •>** 1 cncls 

5b U J M P I GETlIN 

0002 GETLIN, 0 

3?,6a . OCA SNUMPLG 

U3I TAO OUTDEV 

3130 OCA 0UT02 

3131 OCA OUTOEV 

1172 NEWLIN, TAO PL8E5IN 

3056 OCA EPTR 

*370 TAO 040 

3«50 CCA I eptr 

?c - b IS2 EPTR 

4932 NEWCMARjjMS I PGETCH 

3456 OCA I EPTR 

7 24C clA Cma 

..U2_7 , TAO INOEV 

7 *40 SZA CLA 

5226 JMP ,♦* 

3133 OCA CNTLO 

T 20l CLA I AC 

3131 oca OUTDEV 


/CHECK TO SEE IP -C WAS TYPED WHILE HERE, 


/GET THE OUTPUT DEVICE. 

/save for a secono. 

/TURN OFF THE OUTPUT DEVICE, 


/CHECK THE INPUT OEVICE NOW. 

/GET IT, 8ABY. - . 

/IS IT THE TTY? 

/NOPE, 

/IT 13. RESET CONTROL 0, 

/AND temporarily SET THE OUTPUT TO the TT 
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1956 

1957 
1968 

.1959 
I99J 
1 9 9 1 
199P 

1993 

1994 

1995 

1996 
19 97 

1998 

1999 
2333 
2001 
2002 
2203 
200a 

2005 

2006 

2007 

2008 

2009 

2010 
2011 
2012 

2013 

2014 

2015 

2016 

2017 

2018 
2019 
2320 


02626 

02627 

02630 

02631 

02632 

C2633 

02634 

02635 


1456 
1374 
7 4 50 
5263 
1367 
7450 
5266 
1371 


TAO I 
TAD 
SNA 
JMP 
TAO 
SNA 
J»P 
TAO 


02636 

7450 


SNA 

02637 

5300 


JMP 

02640 

1375 


TAO 

0264 1 

7450 


SNA 

02640 

521b 


JMP 

02643 

0372 


ANO 

02644 

7aa0 


SZA 

02645 

1363 


TAO 

02646 

7640 


SZA CLA 

02647 

5215 


JMP 

02650 

1456 


TAO I 

02651 

4433 


JM$ I 

02652 

1056 


TAO 

02653 

2056 


ISZ 

0265a 

1174 


TAO 

02655 

7640 


SZA CLA 

02656 

5215 


JMP 

02657 

4537 

tubig, 

JMS I 

02660 

4514 


JMS I 

02661 

5162 


TOOLONG 

02662 

5210 


JMP 

02663 

4514 

ALTMOOE 

• J V S I 

0 2664 

6501 


deleted 

02665 

5210 


JMP 

02666 

1056 

Barrow, 

TAO 

02667 

1173 


TAO 


7650 


2321 

0267J 

5215 


2322 

02672 

7240 


2023 

02673 

1056 


2324 

02674 

3056 


2025 

02675 

1373 


2026 

02676 

4433 


2327 

02677 

5215 


2?28 

02733 

1007 

CARRET 

2C29 

02701 

4433 


2333 

02 7 32 

2134 


2231 

32723 

11*2 


2032 

e2?04 

3056 


2333 

02705 

101* 


2034 

02736 

3057 


2035 

02737 

1377 

SLOOP, 

2336 

0 2*10 

3361 

2037 

02*11 

1056 

GLOOP, 

20 3S 

02*13 

1060 

2239 

02*13 

1461 


2043 

02714 

7650 



SNA CLA 
J*P 

Cla c*a 

TAO 

OCA 

TAO 

J*S I 

JMP 

tad 

J M 5 I 

ISZ 

TAO 

OCA 

TAO 

OCA 

TAO 

OCA 

TAO 

OCA 

TAO I 

SNA CLA 


EPTR 

07603 

/IS IT ALT-MOOE (175) 
ALTMODE /YES 
036 

/IS IT 

BARROW /YES 
0122 

/IS IT (CAR, RET.) 

CARRET /YES 
07715 

/IS IT *$• 

NEWCHAR /yes 
O140B 

076408 

NE-CH.R '^0 IT * P,I - T ‘ 9 ^ CHARACTER 

EPTR 

PPUTCH 

EPTR 

EPTR 

HLENO 

NEWCHAR 
PRESET 
PPRINTXT 

NEWLIN 
PPRINTXT 

NEWLIN 
EPTR 
MLBEGIN 

NEwCHAR 

EPTR 
EPTR 
C3737B 
p®UTCh 
NEhCRAR 
0215 
PPUTCH 
NOINT 
PuBEGIN 
EPTR 
PLINBUF 
FPTR 
PTABLE 
HPT R 
CPTR 
GPTR 
HPTR 


/RESET ALL DEVICES NO*. 

/ANO GIVE THE ERROR MESSAGES, 


/SET FLAG To PREVENT INTERUPTS AS OF no, 
✓EPTR.BEGINNING OF STRING ° Nn *« 

/FPTR.rhERC TRANSLATED SYMBOL GOES 
✓GP9E.CHAR IN STRING( t GE, EPTR) 

/HPTR.POSITION in TABLE 












* ' 
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1 

2041 . 

02715 

5776 

JMP 

I 

POT.hFR 

2042 

02716 

1 06 1 

TAO 


HP TR 

234 3 

027 1? 

3052 

DCA 


WORD 

2044 

02720 

20 U 

ISZ 


hPTR 

2045 

22721 

3224 

OCA 


ACS 

2046 

22722 

1463 

*LO0P, TAO 

I 

GPTh 

2C«7 

02723 

1254 

Tad 


O? ?a JI¬ 

20*8 

£’27 24 

7 640 

S? A 

CL* 


23*9 

02725 

5 3 30 

JMP 


BS* ip 

2 3 53 

C2726 

20^2 

ISZ 


GPTh 

2 0 51 

027?? 

5 322 

JMP 


m L C 0 p 

? 0 > 2 

0273? 

7 3 • ? 

6 54 IP, CLA 

Ct L 

C' L RAP 

22 53 

027 3* 

1226 

TAD 


AC 5 

r.‘5ii 

7 

32 24 

OCA 


ACS 

2055 

£27 33 

. U 9 i 

T *0 

I 

H P ? R 

23.56 

C -? 7 3 4 

7 430 

SZL 



2357 

e?*?* 

2 £ 6 1 

ISZ 


HPTR 

20 55 

02TJ6 

7430 

SZL 



2259 

02737 

5 3 i J 

JMP 


, ♦ 4 

2360 

22 74 0 

7012 

RTR 



20M 

0274 1 

7012 

R7R 
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2062 
2 0 6 3 

2064 

2065 

2066 

2067 

2068 


327*2 

02743 

0074* 

027-5 

00746 

227*7 

32750 


7?t2 

e?70 

7a53 

5*66 

1054 

7453 

5330 


RTR 

AND 

$NA 
J*P I 
TAO 
SNA 
JMP 


07 7 

J M A 7 C H 
07 7 <i 3 


2069 

B2751 

0070 


AND 

07 7* 

2070- 
22 7 1 

02752 

02753 

1370 

7041 


TAO 

CIA 

040 

2072 

02754 

1460 


riD i 

GPT.R 

2073 

2?7a 

02755 

02756 

2060 

7650 


isz 

SNA CLA 

GPTR 

2075 

02757 

5322 


JMP 

WJ.CCP 

2076 

02760 

1461 


TAO I 

hPTR 

2077 

02761 

e072 


AND 

077 

2078 

02762 

2061 


ISZ 

HPTR 

2079 

02763 

7640 

076409, 

SZA cla 

2380 

02764 

5360 


JMP 

, »4 

2081 

02765 

5311 


JMP 

GLOOP 

2032 

02766 

6536 

JMATCH, 

AMATCh 

2083 

02767 

0036 

036, 

36 


2094 

.02770 

0040 

040, 

40 


2085 

02771 

0122 

0122, 

122 


2086 

02772 

0140 

0140B, 

140 


2087 

02773 

3737 

0373TB, 

3737 


2038 

02774 

7603 

07633, 

7b03 


2089 

02775 

7715 

07715, 

7715 


2090 

02776 

3003 

P 3 T*ER, 

OTHER 


2091 

2092 

027 7 7 

7023 

ptabiE 

XXPtUS' 




2293 

2094 

2095 
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2096 

2097 

2098 

2099 

2100 
2121 
2102 

2103 

2104 

2105 
2126 

2107 

2108 

2109 

2110 
2111 
2112 
2113 
21 U 

2115 

2116 


PAL8-V9 


PAGE 6-4 


03S30 

03031 

03002 

03003 

03004 

03005 

03C36 

03007 

03010 

03011 

03012 

03013 

03014 

03015 


3000 


4310 

1301 

7440 

5223 

1325 
3457 
1057 
3213 

1326 
3413 
1313 
1041 
7450 
5622 


Other, 


PAGE 


JMS 

TAO 

SZA 

JMP 

TAO 

DC A I 

TAO 

OCA 

TAO 

OCA I 

TAO 

TAO 

SNA 
JMP I 


NONBINK 

077638 

NOTCR 
P*XC»LP 
FPTR 
FPTR 
INDEX! 
PXXEX IT 
I NOE X1 
INDEX 1 
MENDL1N 

PGETIRET 



2118 

03017 

5210 


JMP 


• •7 

2119 

03020 

5621 


JMP 

I 

PTUBIG 

2120 

03021 

2657 

PTUBIG, 

TU8IG 


2121 

03022 

2600 

pgetlre 

,GETl«ET 


2122 

03023 

1322 

NOTC®» 

TAO 


07737 

2123 

03024 

7450 


SNA 



2124 

03025 

57?4 


JMP 

I 

JDIGIT 

2125 

03026 

1302 


TAO 


077646 

2126 

03027 

7100 


CLL 



2127 

03030 

1065 


tad 


C12 

2128 

03031 

7430 


SZL 



2129 

03032 

5724 


JMP 

I 

JDIGIT 

2130 

03033 

1300 


TAO 


07725A 

2131 

03034 

7100 


CLL 



2132 

03035 

1321 


tad 


032 

2133 

03036 

7430 


SZL 



2134 

03037 

5703 


JMP 

I 

PLETUw 

2135 

03040 

7330 


CLA 

CLL 

Cml RAR 

2136 

03041 

1456 


TAD 

I 

EPTr 

2137 

0304? 

3456 


OCA 

I 

E p TR 

2138 

03043 

1076 

RE M PAC«, 

, TAD 


PTEXT 

2139 

03044 

J«57 


OCA 

I 

FPTR 

2140 

03045 

2057 


ISZ 


FPTR 

2141 

03046 

3307 

TXTPAK, 

CCA 


TMI5TXT 

214? 

03047 

1456 


TAO 

I 

EPTR 

2143 

03050 

1301 


TAO 


077638 

2144 

03051 

7450 


SNA 

. 


2145 

03052 

5276 


JMP 


CRINTirT 

2146 

03P53 

1304 


TAO 


07753 

2147 

03054 

7650- 


SNA 

CLA 


2148 

03O55 

5370 


JMP 


OQINTXT 

2149 

03056 

W56 


TAO 

I 

EPTR 

2150 

03C57 

ee70 


AND 


C 7 7 


' 
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2151 

31360 

3456 

2152 

23361 

1307 

*153 

25-62 

7452 

21 Sa 

£3263 

5270 

2155 

2 3364 

1456 

2 5 5*, 

33255 

3*5 r 

2157 

MS 6 6 

2257 

2158 

C3S6 7 

5274 

2159 

2 '5 3 7 2 

l« 7 ’ 6 

2 ♦ h » 

MM I 

7 1 " ■■• 

2lM 

£337? 

7006 

215? 

8337 3 

7 * c 

? 1 fc 3 

233.79 

2256 

215 4 

MC75 

52 4 6 

.2165 

MM* 

13^7 

2165 

23277 

57?3 

2167 



2163 

231.10 

7 726 

2169 

2 5121 

7763 

2172 

MU2 

7764 

2171 



2172 



2P3 

23123 

34 9 6 

217a 

23124 

7753 

2175 

23125 

4222 

2176 

23J36 

£C42 

2177 

C31P7 

0232 

2178 

3 3 112 

£383 

2179 

33111 

1456 

218.7 

03112 

1254 

2181 

£3113 

7643 

2!«2 

23114 

531 7 

2183 

63115 

2356 

218<J 

£3116 

5311 

2185 

83117 

1456 

2186 

£3120 

5713 

2187 

£3121 

0032 

2183 

£3122 

7737 

2139 

23123 

32C1 

2192 

£3124 

3234 

2191 

£3125 

7226 

2192 

83126 

7505 

2195 

£3127 

CC 72 

2194 

£3130 

7506 

2195 

03131 

4435 

2196 

£ 31 32 

2373 

2197 

£3135 

P?33 

2198 

03134 

1375 

2199 

03135 

7640 

2203 

0 3 J 35 

5346 

2221 

03137 

1 £74 

2222 

£3140 

7640 

2223 

23141 

5347 

22 04 

03142 

1073 

2225 

0314J 

7650 



DC A I 

EPTR 


7 AO 

thjstxt 


3\A 



jvp 

LMAL 7 


tad I 

EPTR 


CCA I 

F P rs> 


152 

FPT R 


Jy>9 

RM A^F 

l W A !. F , 

tad I 

CLL RTt 

RT L 

p 11, 

E»TR 

P H A 1 F , 

■I5Z 

£PTO 


J*b 

T if TP AK 

CSINTXT 

.tad 

T*I$7xT 


J“p I 

JTXXJT 

0 7 7 ? 5 A. 

7725 


07*MB, 

77*3 


077643. 

7764 



PlETT£R 

.LETTER 


077>3. 

7 753 


04230, 

4223 


C42, 

42 


TmSTXT 

.8 


NONBLNK 

,z 



tad I 

EPTR 


TAO 

S2A CL* 

07740 


JVP 

.♦3 


ISZ 

EPTR 


JMP 

N0N8LNKM 


TAO I 

E°TR 


JMP I 

N0N8LNK 

032, 

32 


07737, 

7737 


JT1XIT, 

MTXXIT 


JOIGIT, 

DIGIT 


PXXCOLF, 

, xxcrlf 


PXXEXJT, 

■ * X E X IT 


PCPE9A, 

OPERAND. 

>1 

PXXLIT0, 

XXIIT0 


litral. 

FEN7ER 
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03676 

1053 

L1ST5. 

TAD 

WORD 

/ITS A SY 

25?6 

03677 

7001 


I AC 



2579 

03700 

4 302 


JMS 

PRINTXT 



LITERAL 



/BASIC,L8E 


PAL8-V9 


/ / 


PAGE 8 


252a 

03701 

5223 


JMP 

LISTLUP 

2581 

03702 

0300 

PRINTXT, 



2512 

03733 

7440 


SZA 


25S3 

03724 

5310 


JMP 

J8PENTM 

2584 

03705 

6221 


CDF 

0 

2595 

03706 

l?02 


TAD I 

PRINTXT 

25 6 6 

03737 

2302 

JBPENT, 

ISZ 

PRINTXT 

2547 

03710 

3042 


DC A 

PRTE¥P 

2548 

0371 1 

1442 

PRICOP, 

TAO I 

PRTEMP 

2589 

03712 

7012 


RTR 


2590 

0371 3 

7012 


RTR 


2591 

03714 

7012 


RTR 


2592 

037 15 

4324 


JMS 

PRSUBR 

2593 

03716 

144 2 


TAD I 

PRTEMP 

2596 

037 17 

4324 


JMS 

PRSUBR 

2595 

03720 

2042 


ISZ 

PRTEMP 

. 2596 

03721 

5311 


JMP 

PRLOOP 

2597 

03722 

6211 

PRTXRET 

# CDF 

10 

2598 

03723 

5702 


JMP I 

PRINTXT 

2599 

e3724 

0230 

prsubr, 

0 


2600 

03725 

0070 


AND 

077 

2631 

03728 

7450 


SNA 


2602 

03727 

5322 


JMP 

PRTXRET 

2633 

03730 

1345 


TAD 

07741 

2604 

03731 

7450 


SNA 


2605 

03732 

5340 


JMP 

crlfpr 

2606 

03733 

1070 


TAO 

077 

263? 

03734 

0070 


AND 

077 

2608 

03735 

1051 


TAO 

0240 

2609 

03736 

4433 


JMS I 

PPUTCH 

2610 

03737 

5724 


JMP I 

prsubr 

2611 

03740 

1007 

crlfpr t 

TAD 

0215 

2612 

03741 

4433 


JMS I 

PPUTCH 

2613 

03742 

1010 

, 

TAO 

0212 

2614 

03743 

4433 


JMS I 

PPUTCH 

2615 

03744 

5724 


JMP I 

PRSUBR 

2616 

03745 

7741 

07741, 

7741 


2617 

03746 

7513 

PXLIN8U 

, LINBUF♦t 

2618 

03747 

0003 

PRINUM, 

0 


2619 

03750 

7001 


I AC 


2620 

03751 

3013 


OCA 

IN0EX1 

2621 

23752 

4362 


JMS 

BEGFIX 

2622 

03753 

1413 


TAO I 

IN0EX1 

2623 

03754 

301? 


OCA 

AC2 

2624 

03755 

1413 


TAO I 

IN0EX1 

2625 

03756 

3016 


OCA 

AC 3 

2626 

03757 

4546 


JMS I 

PANG9M 

2627 

03760 

4517 


JMS I 

POUTNUM 

2628 

03761 

5747 


JMP I 

PRINUM 

2629 






2630 






2631 

. 



. 


2632 






2633 

03762 

0200 

BEGFIX. 

0 


2634 

03763 

301? 


DC A 

AC2 


8 K INSERT, 
6 K INSERT, 


/•»'»*'»» 8 K INSERT, 




/SET UP PAC TO RECEIVE INTEGER DATA, 


/SETS UP FOR INTEGER TO AC MODE, 
/Clear them all# except for low word. 


J 














/BASIC.L8E 


PAL8-V9 


/ / 


PAGE 8-1 


2635 

23764 

3020 

DC A • 

AC 1 

2636 

03765 

3? 1 2 

DC A 

Ov 

2637 

* 57 66 

3?2<* 

CCA 

ACS 

2656 

03767 

13^2 

TAD 

0233 

2639 

037 72 

3025 

OCA 

ACE 

26 40 
2621 

0377 J 

5762 

JMP I 

BEGFIX 

26*2 

26*3 

c 6 «• * 

037?2 

0233 

0233. 233 


2645 

037 7 3 

45 71 

RESTORE,CfT + HIJ 

STBE 

26<6 

• 8 3 7 7 « 


2032 


26 37 

3 57 75 

IPO* 

TAD 

COCEtCC 

264 5 

03776, 

3046 

CCA 

READLOC 

2649 

2650 

03777 

5523 

JMP I 

PEXECuTE 


/ccr: or *\ 


2651 

2652 

2653 

2654 
at-55 
2 

2657 

2*58 

2fcS9 

266? 

2661 

2662 

2663 

2664 

2665 

2666 

2667 

2668 
2o69 


2672 


4000 


PAGE 


2671 






2672 






267J 






2574 

24023 

4566 

HOREIN, 

XSIT 


2675 

24021 

2023 


2030 


2676 

04222 

5234 


JMP 

INPLUP 

2677 

04233 

1213 


TAD 

0212 

2678 

24204 

4433 


JHS I 

PPUTCH 

2679 

04225 

1130 

- 

TAO 

0UTD2 

2683 

C4236 

3131 


OCA 

OUTDEV 

2681 

04227 

7240 

INPUT, 

CIA CHA 


2652 

04210 

1127 

. ' 

TAD 

INDEV 

26 83 

04011 

7640 


SZA CLA 


2684 

04012 

5224 


JMP 

IPNOPE 

2685 

24013 

1131 


TAO 

OUTDEV 

2656 

04014 

4524 


JMS I 

P PUSH 

2687 

04015 

7201 


CLA I AC 


2688 

04216 

3131 


DCA 

OUTDEV 

2689 

04017 

4541 


JMS I 

PCOwT 


/ (CR) OR 0 \' 


/GET THE OLD OUTPUT DEVICE, 

/AMD RESET IT, 

/CHECK THE INPUT DEVICE NO*. 

/ARE HE INPUT FROM THE TELETYPE, 

/NOPE, 

/GET THE OUTPUT DEVICE, 

/SAVE IT FOR A SECOND, 

/SET OUTPUT OEVICE TO TTY FOR "7" 

/W^IT FOR OUTPUT TO FINISH, THEN CONTINUE, 


/BASIC 

,L8E 




PAL 

2690 

04020 

1070 


TAO 

077 

2691 

04321 ■ 

4433 


JMS I 

PPUTCH 

269? 

04322 

4505 


JMS I 

PPCP 

2693 

04023 

3131 


DCA 

OUTDEV 

2694 

34324 

1045 

IPNOPE, 

TAD 

LOCCTR 

2695 

34025 

3565 


OCA I 

GSBPTR 

2696 

04026 

1076 


TAO 

PTEXT 

2697 

04327 

4524 


JMS I 

PGETL1N 

269e 

04030 

1565 


TAD I 

GSBPTR 

2699 

04031 

3045 


OCA 

LOCCTR 

2700 

04032 

1337 


TAD 

PLINBUF 

2701 

04333 

3263 


OCA 

Inpptr 

2702 

34C3u 

4513 

INPLUP, 

JMS I 

PGETVAR 

2733 

04035 

1350 


TAD 

WORD 

2704 

04336 

3264 


DCA 

INWOTMP 

2705 

04037 

1045 


TAO 

LOCCTR 

2706 

04040 

3265 


DCA 

inlctmp 

2707 

04041 

1263 


TAD 

inpptr 

. 2738 

04042 

3045 


DCA 

LOCCTR 

2739 

04343 

4521 


JMS I 

PEVAL 

2713 

04044 

1045 


TAD 

LOCCTR 

2711 

04045 

3263 


DCA 

INPPTR 

2712 

04046 

1265 


TAD 

INLCTMP 

2713 

04047 

3045 


OCA 

LOCCTR 

2714 

04050 

4512 


JMS I 

PSTOVAR 

2715 

04351 

7332 


CLA CLL 

CML RTR 

2716 

04052 

1664 


TAD I 

INkOTmP 

2717 

04353 

7640 


SZA CLA 


2718 

04354 

5200 


JMP 

MOREIN 

2719 

04355 

1010 


TAO 

0212 

• 2720 

00056 

4433 


JMS I 

PPUTCH 

2721 

04357 

1130 


TAO 

0UT02 

2722 

04060 

3131 


OCA 

OUTDEV 

2723 

04361 

3126 


OCA 

COLUMN 

2724 

04362 

5503 


JMP I 

PEXECUTE 

2725 

04063 

0000 

XNPPTR, 

0 


2726 

04364 

0000 

Inwotmp 

.0 


2727 

04065 

0000 

inlctmp 

,0 


2728 

04366 

0000 

XGISIT, 

0 


2729 

04067 

4 177 


JMS 

GETWO 

2733 

04370 

1266 


TAD 

XGISIT 

2731 

0oe7i 

3273 


DCA 

XISIT 

2732 

04072 

5274 


JMP 

XXSITM 

2733 

04373 

0300 

X 151 T, 

e 


2734 

04374 

1453 


TAO I 

WORD 

2735 

04075 

6201 


CDF 

0 

2736 

04076 

1673 


TAO I 

XISIT 

2737 

04377 

6211 


CDF 

10 

2738 

04130 

2273 


ISZ 

XISIT 

2739 

04131 

7650 

* 

SNA CLA 


27*0 

04132 

2273 


ISZ 

XISIT 

2741 

04131 

5673 


JMP X 

XISIT 

27«2 

04 104 

0030 

isitlit 

,0 


2743 

04 125 

1450 


tad. I 

WORO 

2744 

04106 

7146 


CLL CMA 

RTL 


/ / 


PAGE 8-2 


/RESET OUTPUT DEVICE NOw, 


/RESET THE DEV, 


g K INSERT, 
/f g k INSERT, 
























/BASIC.l*e 


PAL8-V9 


/ / 


PAGE 8-3 


2745 

04 107 

7032 


c m l Rtr 

2746 

34U0 

3024 


DC* 

ACS 

2747 

04U1 

1024 


TAO 

ACS 

2.7 4 8 

04112 

1160 


TAD 

04 

?7 4 9 

0 4 1 1 J 

7 6 20 


5\L C L A 


2 7 53 

e j 11 4 

570* 


J HP I 

ISITLIT 

275J 

t’4 n 5 

2304 


I S Z 

ISITlIT 

275? 

54 1 16 

3?23 


DC A 

A C. 1 

2753 

v «n 7 

331? 


CCA 

A C 2 

275w 

0«*120 

3Ci*> 


CCA 

AC 3 

2755 

e 4 : 2 1 

4333 


j s 

I 3L I T 

27 Sfc 

v - 2 2 

3316 


CCA 

ACi 

c 75 ? 

* . * • > r 

• ’ . 

4 333 


J" 5 

I-SLIT 

2?5S 

£ *• 1 £ ** * 

301? 


C C A 

AC2 

2739 

54 125 

4333 


J" s 

I5LXT 

276? 

04 126 

3020 


OCA 

A C 1 

2 76 1 

04 12 7 

6435 

LOADED, 

PC'. TER 


2?62 

04 1 33 

3016 


PLO 

AC 3 

27*3 

04131 

0000 


FEXIT 


2764 

3 4132 

5704 


J' c ! 

ISITLIT 

2765 

04 133 

0000 

I SLIT, 

0 


2^66 

2024 


ISZ 

ACS 

2767 

04 135 

7613 


sxp 


2765 

04136 

5327 


JMP 

LOACEO 

2769 

04 137 

4177 


JM S 

GETwD 

277g 

04J-40 

1050 


TAO 

WORD 

2 7 7 1 

0-Ml 

5733 


JMP I 

islit 

2772 

04J42 

0000 

ERROR, 

0 


2773 

04143 

4537 


jMS I 

PRESET 

277a 

04144 

4514 


JMS I 

PPRINTXT 

2775 

04 1 45 

6531 


CRLF 


277b 

04 1 46 

1342 


TAO 

ERROR 

2777 

04147 

3351 


DC A 

, *2 

277® 

04150 

4514 


JMS I 

PPRINTXT 

2779 

C4151 

7432 


HLT 


2783 

04152 

4514 


jMS I 

PPRINTXT 

2781 

041 S3 

4170 


QERROR 


2782 

04154 

1452 

. 

TAO I 

LINENO 

2783 

04155 

7710 


SPA CLA 


2784 

04156 

5363 


JMP 

.♦5 

2785 

04157 

4514 


JMS I 

PPRINTXT 

2786 

£4 163 

6451 


atline 


2787 

04161 

1052 


TAD 

LINENO 

2786 

04162 

4523 


JMS I 

PPRINUM 

2789 

04163 

4514 


JMS I 

PPRINTXT 

279? 

04164 

6531 


crlf 


2 7 9 1 - 

04165 

1125 


TAD 

PPDLIST 

2792 

04166 

3336 


OCA 

POL 

2793 

04 1 67 

5520 


JMP I 

PEDIT 

2794- 

04173 

Aoor , 

GE»ROR, 

TEXT *-ERROR* 

2795 

04 171 

2222 




279® 

04172 

1722 




2797 

0*173 

0003 





2798 

2799 


/RESET ALL I/O DEVICES. 




t 



/BASIC.L8£ 


PAL8-V9 / / PAGE 8-4 


2800 






2831 






2802 






2803 






2834 





' 

2805 


4230 


PAGE 


2806 






2807 






2938 




/ 

JMS 

2809 




/ 

0000 

2810 




/ 

0040 

2811 




/ 

0050 

2812 




/ 

0100 

2813 




/ 

eii0 

2814 




/ 

0140 

2815 




/ 

0150 

2816 




/ 


2817 




/ 


2818 




✓ 


2819 




/ 

1XXX 

2823 



* 

/ 

2 X X X 

2821 




/ 

3xxx 

2622 




/ 

4XXX 

2623 




/ 

5x X X 

2824 




/ 

6XXX 

2825 




/ 

7XXX 

2826 

04203 

0000 

FPT » 

0 


2827 

04231 

5204 


JMP . 

.*3 

2828 

04202 

4546 

FPLOCP, 

JMS I 

panORm 

2829 

04233 

2200 


ISZ 

FPT 

2833 

04234 

6201 


CDF 

0 

2631 

04235 

1600 


TAO I 

FPT 

2832 

04236 

7006 


rtl 


2833 

0*227 

7C36 


rtl 


2834 

3*210 

0372 


and 

07 

2835 

0421 1 

7450 


SNA 


2836 

04212 

5305 


JMP 

FPQPER 

2837 

0«213 

3273 


OCA 

FPGOTO 

2838 

04214 

1630 

• 

TAO I 

FPT 

2339 

04215 

0155 


ANQ 

0220 

2843 

04216 

7653 


SNA CLA 

2841 

0421 7 

5227 


JMP 

FPPGZ 

264? 

04223 

1600 


TAO I 

FPT 

2843 

04221 

03 if 


and 

0177 

2846 

34222 

7433 


SZL 


2845 

04223 

73*1 


CIA 


2846 

04224 

1233 


TAO 

FPT 

2847 

04225 

3304 


CCA 

fpaoor 

2848 

a4?26 

5237 


JMP 

FPCOIT 

2849 

04227 

1633 

FPPGZ, 

TAO I 

FPT 

285?. 

0*233 

0027 


ANO 

0177 

2851 ‘ 

04231 

3304 


OCA 

FPAOOR 

2652 

04232 

7423 


S\L 


2853 

04233 

5237 


JMP 

FPDOIT 

2854 

04234 

1704 


TAO I 

FPAOOR 


EPT /ENTER FLOATING POINT PACK 

/FEXIT 
/FSNE 
/FSEO 
/FSGE 
/fslt 

/FSGT 

/fsle 

IF BIT 4 OFF THEN SAME AS PDP-8 

IF BIT 4 ON THEN IF BIT 3 OFF THEN RELATIVE PLUS 
IF BIT 3 ON THEN RELATIVE MINUS 

/FJMP 

/FST 

/FLO 

/F AO 

/FSB 

/FMP 

/PDV 


8 K INSERT. 














/BASIC 

.L8E 




PALB-V9 / / PAGE 

2655 

04235 

3304 


OCA 

FPADDR 

2856 

04238 

6211 


CDF 

10 /•••• a k 

2S5? . 

34237 

7 346 

TPOOIT, 

CIA CLL 

C M A RTL 

2858 

34243 

1273 


TAO 

FPGOTO 

2'; 59 

C 4 2 4 1 

7710 


SPA CL* 


?. . 62 

34242 

527J 


JMP 

FPNCAOR 

?*M 

0424 J 

7 ?30 


Ci.A CLL 

C M L RAR 

2**2 

04 244 

07 Ca 


AND I 

F<? A2DR 

2*63 

3<?45 

3026 


OCA 

OP 5 

2*84 

3*246 

1704 


tad 1 

FPADDR 

2365 

04247 

7 * , 0 


sza cl* 


2-6 6 

0*250 

7040 


Cha 


? A 6 7 

04 251 

3 i 56 


oca 

F ? f t A & 

23 68 

34252 

•17 04 


TAD I 

FPADDR 

2 Bo 9 

34253 

7012 


RTR 


28 '*2 

04 25a 

7012 


RAR 


2£7 i 

34255 

0*7 1 


ANO 

0377 

2672 

04256 

3032 


DC A 

OPE 

2673 

34257 

1 7 ?4 


Tad I 

FPADOR 

26 7 <i 

04283 

00 7 2 


A NO 

07 

2875 

04261 

3023 


DC A 

0P1 

287*, 

04262 

2304 


ISZ 

FPADOR 

267 7 

04263 

1724 


TAO I 

FpaDOR 

2678 

04264 

3022 


OCA 

0P2 

2679 

04265 

2304 


ISZ 

F P A 0 0 R 

2580 

34266 

1704 


TAO I 

FPADOR 

2581 

04267 

3021 


OCA 

OP 3 

2B82 

04270 

1273 

FpNOADR 

* T AD 

FP&OTO 

2583 

e42?i 

1 274 


TAO 

FPJUMP 

25«4 

04272 

3273 


OCA 

.♦1 

2685 

0427 3 

7402 

FPG0TO, 

HLT 


28 ib 

04274 

5674 

FPJU*P, 

JHP I 

• 

2387 

04275 

4317 


FPJMP 


2836 

04276 

4322 


FPSTO 


2889 

04277 

4351 


FPIAC 


2893 

04300 

4456 


FPAOC 


289l 

04301 

4453 


FPSUB 


28*2 

04332 

4530 


FPMUl 


26*3 

04303 

4667 


FPOIV 


2694 

04304 

0000 

FPAOOR, 

0 


2895 

04305 

1600 

FPOPER, 

TAO I 

FPT 

2898 

04306 

6211 


CDF 

1C 

2897 

04307 

7450 


SNA 


2898 

04310 

5600 


JMP I 

FPT 

28 99 

0431 1 

1345 


TAO 

07600 

2903 

04312 

3314 


OCA 

FPSKIP 

2901 

04313 

4333 

* 

J*S 

HIGHWO 

2932 

04314 

7402 

FPSKIP, 

HLT 


2933 

04315 

2200 


ISZ 

FPT 

2924 r 

04316 

5203. 


JHP , 

fplcopm 

2905 

04317 

1304 

FPJMP, 

TAD 

FPADOR 

2908 

04320 

3220 


OCA 

FPT 

2907 

04321 

5204 


J"P 

FPlOOP*2 

2908 

04322 

4333 

FPSTO, 

JH$ 

HIGHWO 

2939 

04323 

3704 


OCA 1 

fpaoor 

t 


/BASIC 

«L8E 




PAL8-V9 

/ / PAGE 

2910 

04324 

2304 

ISZ 


FPADOR 


2911 

04325 

1017 

TAD 


AC2 


2912 

04326 

3704 

OCA 

I 

FPAOOR 


2913 

04327 

2304 

ISZ 


FPADOR 

* 

2914 

04330 

1018 

TAD 


AC3 


2915 

04331 

3704 

OCA 

I 

fpaoor 


2916 

04332 

5203 

JMP 


FPlOOP-M 


2917 

04333 

0003 

M I GHI*D # 0 




2918 

0433a 

1025 

TAD 


ACE 


2919 

04335 

7104 

CLL 

RAl 



2920 

04336 

7530 

SMA 





6-5 

INSERT, 


K INSERT, 














/BASIC 

.L 6 E 




PA 

29*1 

0433? 

7136 


CLL RTt 


2922 

£4*43 

7330 


su 


29 ?3 

84 341 

5395 



07688 

292a 

3 4 34 2 

. 132® 


TAD . 

ACS 

2925 

3 .i 3 a 1 

1 025 


TAD 

AC 1 

2926 

3434a 

5733 


J«P I 

M I G H m 0 

r.927 

64545 

7 f. > 3 

0768?, 

7603 


292 8 

3-1346 

1 £ 7 1 


TAO 

03? ’ 

2-29 

2 434 7 

3 ? £ 3 


DC A 

ACE 

29 5^ 

0*350 

53 34 


J M ? 

mIG**DM 

? c ' 3 * 

£4 331 

j ??6 

FPL4C, 

* aO 

OPS 

?9 52 

•24 35? 

3824 


DC * 

ACS 

?*3J 

£4 35 3 

1 3 5* 


tad 

CPI 

?93a 

^ .* '• 

V « - • " 

7 . .■» ;•■ $ 


oca 

ace 

2935 

•0.4 3 55 

icii 


7 40 

CP 1 

2936 

* 475-5 

3? 7 8 


DC A 

AC l 

29J7 

£4537 

18 £2 


TAO 

0 P 2 

?9?S 

C* Jfc? 

3017 


CCA 

AC2 

293^ 

2 4 S ‘1 

1021 


TAO 

0 p 3 

2942 

243-; 3 

3 2 IP 


DC A 

AC3 

394* 

£4365 

3012 


CCA 

OV 

2«*S 

34364 

5222 


JM? 

fplccp 

39*5 

CC 365 

7291 

UPARR2, 

CIA 


c9«4 

24366 

3213 


OCA 

INDEX! 

2945 

24367 

69 35 


FENTER 


?946 

04 370 

3151 


FLO 

ONE 

2947 

84371 

2222 


FEXIT 


2968 . 

2937? 

5376 


JMP 

.♦« 

2949 

24373 

44 35 


FENTER 


?952 

2437a 

6273 


FMP 

operand 

?95 i 

23375 

8283 


FEXIT 


2952 

09376 

2013 


IS2 

inoexi 

2955 

04J77 

5373 


JMP 

..-4 

2954 

24402 

5ft3l 


J"P I 

.♦1 

2955 

84931 

1203 


OPDONE 


2956 






2957 






2956 






2959 






296® 






2961 

84432 

0200 

ARl , 
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5745 
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7520 

07523, 

7520 

05154 

7766 
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05155 

7771 
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7771 
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0256A, 
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05157 

7772 

07772, 

7772 

05160 

5321 

PMPY, 

MPY 
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5343 
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3714 
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3374 
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1345 
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05203 

3325 

3377 
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7410 
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1043 

3379 
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3043 

3383 
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3382 
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3383 
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5220 

3384 

05213 

4550 

3385 
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05251 
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CLA CML 
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3452 

35317 

7333 


NOP 



34S3 

05322 

5600 


JMP 

I 

FIXITUP 

3454 

35321 

3300 

MPY, 

3 



3455 

05322 

4553 


JM5 

I 
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F5IN0K, 

FLD*FkD*fsinZ., 

6225 


FHP»F*D*FSINZ-, 

2227 


FSTaFwO*F5lNZZ- 

6234 


FMP*F*D*FSINC3-, 

4236 


FADaF«DaFSI\C4-, 

6224 


FmP*f W £*f$InzZ- , 

4237 


FAOaF*C*FSlNCb- ( 

6222 


Fmp*FwO*FSInZZ-, 

4240 


FAD*FfcO«-F$lNCb-, 

6220 


fmp*f*o»f$inzz*. 

4241 


FACaF*CaFSI\C7-. 

6213 


F*.P*F*OaFSI\Z-. 

0000 


FEXIT 

5624 


JMP I SJN 

0726 

psgn, 

SON 

6434 

PINT, 

INT 

0000 

ftanti, 

01 01 0 


0203 

0020 
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3744 

257 22 

■0 2? 3 

FTAST2, 

070/0 

37 4 5 

35 7 83 

r * ? \> -* 
t; .• • ; r <4 



5* *t, 

85704 

?:'C0 



3747 

257 05 

C •? 3 

FSIN2# 

070IS 

3*42 

.357 5 5 

r. ? •* 0 



3749 

357 27 

8783 



375:7 

33713 

tzr.i 

FSINXZ, 

zmn 

3751 

25711 

■■> • > 



37S2 

35 712 

2.;:: 3 



7753 

2-5 71 3 

■ 2836 

FSINC 1 , 

20361222777325 

3?'« 

257 * 4 

2 30' 



? • 5 5 

257 1 5 

7 * 5 



3 71!, 

25716 

* <!>4 9 ■ 

FSINC3, 

164477553/8?22 

1757 

i "* 7 t 7 

*■533 



37S8 

057 23 

6 7 22 



3754 

C5721 

5 ? i4 

F$I\C4, 

5?14f6223n«32 

3760 

85722 

7 223 



3761 

05723 

! <• 3 2 



3762 

85? 2 4 

5 755 

FSInC5» 

1755/8632/1276 

3/fe 3 

257 55 

86 32 



3764 

r ; 7 >.y— 

"l-S-7 6- 

- 


3?i>5 

'35727 

6 8 3 3 

F3INC6, 

6325/*25617406 

3766. 

057 30 

1256 



3767 

05731 

7*36 



5762 

05732 

20 i 6 

FSINC7, 

2016/2207/7325 

3769 

057 33 

2237 



3770 

CS734 

7325 



3771 

857 35 

6?34 

FSINM4, 

6034/3032/0300 

377? 

05736 

3008 



3773 

05737 

0323 



377« 

05743 

4435 

UPARRX , 

FENTER 

3775 

CS76 i 

2634 


FST4B**D*,*F5InZ 

3776 

05742 

2100 


F 5 jE 

3777 

05743 

1221 


FJMP*FWD*EXPLONG' 

377 1 

85744 

2232 


FEXIT 

3779 

05745 

4676 


JMS I PINT 

3760 

05746 

4435 


FENTER 

3781 

05747 

5642 


F‘sS*8FW04,-FSINZ 

3782 

05750 

0253 


FSEC 

3783 

05751 

1213 


r jmp^fwO^explcnG' 

3784 

85752 

3645 


FLD+8KW04.*FSINZ 

3785 

05753 

5237 


F5S*F40*F(JPRC1*, 

3786 

05754 

0150 


FSLt 

3787 

05755 

1237 


FJMP*FWD*EXPUCNG' 

3788 

05756 

3651 


FlD4BKWD*,.FSINZ 

3769 

03*57 

0333 


FEXIT 

3792 

05?6J 

5761 


JMP I ,♦! 

379J 

05761 

6457 


UP ARROW 

3792 

e 57 6 ? 

2377 

FUPRCi » 

237777700 

179J 

e$?u 

7.702 



3794 

05764 

3073 

EXPLONG 

,F|»D OPERANO 

3795 

35765 

2223 


FEXIT 

3796 

05766 

4775 


JMS I PLCG 

3797 

05767 

4435 


FENTER 

3798 

05773 

6663 


FMP*8KWD*,-FSINZ 


t 
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Pi 

3799 

05771 

0000 


FEXIT 

3833 

05772 

4776 


JMS I PEXP 

3631 

C577J 

5774 


JMP I .♦! 

3332 

CS?74 

1203 


OPDCNE 

3833 

05775 

6114 

PLCG, 

LOG 

3804 

05776 

6020 

P£XP # 

EXP 

3525 




v 

3836 





3837 





3538 





3809 





3810 





3811 





3812 





3813 


6000 


PAGE 

3814 





3815 





3816 

06000 

0000 

EXP, 

0 

3817 

06001 

4435 


FENTER 

3818 

06002 

7270 


FCV4F*D*FEXPC1-, 

3819 

06003 

2261 


P5T*FwO*FExPU*, 

3820 

06004 

0230 


FEXIT 

3821 

06005 

4660 


JMS I PRINT 

3822 

06006 

7330 


CLA CLL CML »AR 

3823 

06007 

1024 


TAD ACS 

3824 

06310 

3324 


DC A ACS 

3825 

0601 1 

4435 

. 

FENTER 

3626 

06012 

2247 


FST*FwO*FEXPI-. 

3827 

06013 

4251 


FAC*F*D*F£XP'J-. 

3828 

06014 

2253 


FST*FkO*rEXPF., 

3829 

06015 

6252 


FMP4FWD4FEXPF*. 

3830 

06C16 

4257 


FA04F*04FEXPC2., 

3631 

06017 

2245 


FST*F*0*F£XPU-. 

3832 

06020 

3241 


FL0*Ft*O4FEXPI-. 

3833 

06021 

0200 


FEXIT 

3634 

06022 

4536 


JMS I PFIX 

3835 

06023 

7230 

fttPFt, 

NOP 

3636 

06024 

3261 


DCA FEXPI 

1837 

06025 

1324 


tad ACS 

3838 

06026 

7164 


Cm A CLL Cml RAL 

3639 

06027 

1261 


TAO FEXPI 

3643 

06230 

7420 


SNl 

3641 

06031 

7041 


CIA 

3842 

06032 

7201 


I A C 

3 54 3 

e6?3 3 

3261 


DC A FEXPI 

3844 

08034 

4435 


FENTER 

3845 

06015 

3243 


FlO»FwC*FEXPC3- 

3846 

e6?36 

7226 


FCV*FwO*F£ XPU-. 

364 7 

36037 

4244 


FAD4 r teC*F£xPC4. 

3848 

06040 

5227 


FSB4Fw0#F£*PF. f 

3649 

06041 

2323 


FST*F*0*P£xPU», 

1950 

06042 

3225 


fld*f«o*fexpf-. 

3351 

06043 

6224 



3652 

06044 

62^2 


F*P*F*C*Fh *PC5» 

3653 

06045 

4217 

! 

FAD4F..04FE Xp u• , 


/ / 
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3854 

06046 

2216 


3855 

06247 

3220 


3fi:-6 

06350 

7214 


36 57 

06351 

4 2 4 0 


385S 

06052 

2>l6 


3859 

06353 

0330 


386S 

06254 

U25 


3861 

06355 

1261 


3862 

3b^5s 

3225 


3*b3 

06C5? 

5633 


3 * 6 4 

063 60 

' 6 4 3“ 

PPInt, 

3865 

0606 V 


FEXPI, 

3 866 

0 63*2 

£ 3 v* - 


3t67 

06 26 3 

0023' 


3 o6 8 

06064 

l 

FEXPU, 

3869 

06365 

0020 


3870 

06066 

003 3 


3671 

06067 

0230 

FEXPF, 

3872 

06073 

0333 


3573 

06071 

0003 


38 74 

0637? 

2225 

FEXP£4.,.. 

3*?b 

0h07J 

aa»; 


3876 

0607a 

0323 


3677 

06375 

2275 

FEXPC2, 

3878 

06076 

3552 


3879 

06277 

7022 


3880 

06103 

6124 

FEXPC3, 

3681 

06101 

6477 


3882 

06102 

0715 


3883 

06103 

22*4 

FEXPC4, 

3684 

06104 

7643 


3585 

06105 

0062 


3686 

06136 

174* 

FEXPC5, 

3887 

06107 

3372 


3686 

06113 

3420 


3689 

06111 

2034 

FEXPC6, 

3690 

06112 

0000 


3891 

06113 

0000 


3892 

06114 

0000 

ICG, 

3893 

06115 

1024 


3894 

06116 

7710 


3895 

06117 

5447 


3896 

06123 

1025 


3897 

06121 

3365 


3896 

06122 

1155 


3899 

06123 

3025 


3903 

06124 

4435 


3901 

06125 

2641 


3922 

06 126 

4244 


3803 

06127 

2640 

** 

3904 

S6133 

3644 


3805 

06131 

5241 


3936 

06132 

7643 


3937 

06133 

2644 


3928 

06134 

6645 
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3909 

06135 

6216 


3910 

06136 

4220 


3911 

06137 

6650 


3912 

06140 

6651 


3913 

06141 

4220 


3914 

06142 

6653 


3915 

06143 

5632 


3916 

06144 

2655 


3917 

06145 

3217 


3918 

06146 

5221 


3919 

06147 

4660 


3923 

06150 

6656 


3921 

06151 

0000 


3922 

06152 

5714 


3923 

06153 

2004 

F10GC2, 

3924 

06154 

6253 


3925 

06155 

2521 


3926 

06156 

2007 

FL0GC3, 

3927 

06157 

5421 


3928 

06160 

3604 


3929 

06161 

2025 

FL0GC4, 

3930 

06162 

6125 


3931 

06163 

1007 


3932 

06164 

2174 

LOGFwO. 

3933 

06165 

0000 

LOGACE, 

3934 

06166 

0000 


3935 

06167 

2174 

logokm, 

3936 

e6i70 

0200 


3937 

06171 

0000 


3938 

06172 

2035 

flogci, 

3939 

06173 

5202 


3940 

06i7a 

3632 


3941 




3942 




3943 




3984 




3945 




3946 




3947 




3948 




3949 


6200 


3950 




3951 




3952 




3953 




395a 

06200 

0000 

ATN, 

3955 

•06201 

102« 


3956 

06202 

3272 


3957 

06233 

3224 


3958 

06204 

4835 


3959 

06205 

2271 

*. 

3960 

06206 

2265 


3961 

C6237 

5275 


3962 

06210 

0140 


3963 

0621 1 

1254 
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FSTaFWO*FEXPU». 

FLO*FwD*FEXPF., 

FOV<-FwD*F£XPU*. 
f kQ*W*0+9 E*PC6». 
F$T*FrtD*F£XP**. 

FfcXIT 

TAD ACE 

TAD F£ X PI 

DC A ACE 

jmp I it? 

I NT 
te r z 1 0 


0;c;a 


e i o j ® 


.2.03514271 ;03P0 


237SJ3552/7B22 


6l24;b477;07i5 


2044;7643;0062 


I744f3372;3403 


2C34T3333I3302 


3 

TAD ACS 

SPA CL* 

JMP I PARGERP 
TAD ACE 

OCA LOGACE 

TAD 0200 

DC A ACE 

FENTER 

FST*BKWD* f -FEXPU 
FAD*FwD*FL05Ci-. 
FST*B*WD*>FExPF 
FLD*8 k<*D*,»F£XP u 
FS84FwO*FtOGCl-. 
fdv*Bkwo*,»fexpf 
FST*BK*D*,-FEXPF 
FMP4BKWD-f,-FEXPF 
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FMP*FWD*FL0GC2-. 

FA0*FwD*FL0GC3«. 

FMP*BK*(D*.*FEXPF 

FMP*BKWD*.-F£XPF 

FA0*FWD4FL0GC4-, 

FMP*BK*!D«-,*FEXPF 

F$B*BKk»0*,-F£xPC6 

FST»BKW04,-FEXPF 

FLD^FkO^LCGFwD-, 

FSB*FwD*LOGOKw», 

FAD*BKW0*,-FEXPF 

FMP#8a*0*.-FEXPC1 

FEXIT 

JHP I LOG 
2334;6253;252l 


2037;5421;3604 


202516125;1007 


2174 

0 

0 

2l7a;0200;0 


2225;5202;3632 


PAGE 


0 

TAD ACS 

DC A FATNSX 

DC A ACS 

FENTER 

fst»fwd*fatnt., 

FST#FwD*FaTNAX*. 

FSB*FwO*FATNCi-. 

fsgt 

fjmp*fwd*atnbig-. 
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1*84 

?6212 

5275 


F38*FwO*FATNC2*. 

3*65 

C6213 

0140 


F5GT 

1*66 

06214 

1234 


FjMP*FwO«ATNLOW* 

3«i67 

06215 

3151 


FLO ONE 

3^6? 

36216 

7263 


Fqv*f*d*fatnt«. 

5*6* 

062.17 

2257 


fst*fno*fatnt*. 

3*70 

0 6 223 

3 152 

atnlOw, 

flo 2ero 

1**1 

?.62?l 

2316 


FST*F*0*FATNC», 

S'? 7 ? 

0 7 222 

3254 


FLD*P-0*7A *NT», 

3*7 3 


526 7 


F 5 3 ♦ F 4 D ♦ F A t N C 3 * . 

3 <>>.4 

26224 

0130 


f SGE 

3<?*5 

?6?25 

1212 


F JMP*FW0* ATNNOT* 

3 *7 6 

£6 226 

3253 


FLO*FwO*FAT\T«. 

5 3 ? 7 

362-2 7 

4^66 


F Aw*F«D*»'l. »NCfc- # 

*37? 

06 2 52 

2246 


F 3 7 ♦ c ' - ■ *FATNT*. 

3R?q 

2^231 

3314 


FL0»FyD*FATNCJ*» 

3*5*? 

26232 

7244 


FOv^FkD^FATNT*, 

5*8l 

£6233 

4262 


FA0*Fk0+FATNC4*. 

3 * e ? 

062 34 

2242 


FS r * f *:*FATNT*. 

3*33 . 

0622-5 

3263 


FlC*F»,D + FATNC5*, 

3*24 

06236 

2 3*1 


FST*F*o>*FATNC-. 

3*95 

3627-7 

3237 

ATNNOT, 

FLO** wD^fatnt*. 

3 *3 6 

' 26242' 

6236 


F^p*F*D*FATNT.. 

343 7 

C62M 

2242 


F$T*F*0*FA?NTT«, 

3*88 

362*2 

3261 


Fl0»F40*FATNC6-. 

3 *59 

26243 

6236 


FMP*FwD*F*TNTT*. 

3**3 

36244 

4262 


FAD*F*0*FATNC7-. 

3**1 

06245 

6234 


FMP*FwO*FATNTT*. 

1**2 

06246 

4265 


F»0*FwO*FATNC8», 

3**3 

36247 

6232 


FMP*FwO*FATNTT-, 

3**4 

36253 

4264 


FAO*FaO*FATNC*-. 

3**5 

062S1 

6230 


fmp*fwo*fat\tt*. 

3**6 

06252 

4151 


FAD ONE 

3**7 

26253 

6223 


F*P*FwD*FATNT«, 

3**8 

C62S4 

4263 


FaD*FwD*FATNC-. 

3*** 

06255 

2221 


FSTtFuD^FATNT*. 

43C0 

06256 

3215 


flo»fwd*fatnax*. 

4001 

06257 

5151 


FS8 ONE 

4002 

e6260 

0140 


FSGT 

4303 

06261 

1204 


FjMP*FwD*ATNeiG*, 

4334 

06262 

3260 


FL0aFx0*FATNCH-, 

4005 

06263 

5213 


F53*F*0*FATNT*. 

4006 

06264 

2212 


FST*FwO*FATNT-, 

4307 

06265 

3211 

ATNBIG, 

FlD*FwD*FatnT», 

4308 

06266 

0000 


FEXIT 

4? 39 

06267 

1272 


TAO fatnsx 

4013 

06273 

3024 


OCA ACS 

4011 

06271 

56CD 


JMP I ATN 

4012 

06272 

0000 

FATN5X, 

0 

4013 

26 2 7 1 

0000 

FATn'AX, 

01010 

4314 ' 

06274 

0020 


* 

4015 

06275 

0003 



4016 

06276 

0000 

fatnt, 

01010 

4317 

06277 

0000 



4018 

06330 

0000 




t 
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4019 

06301 

0000 

fatntt 

4020 

06302 

0000 


4021 

06303 

0C00 


4022 

06334 

1634 

fatnci 

4023 

06305 

0000 


4024 

06306 

0000 


4025 

06327 

2037 

FATNC2 

4026 

06310 

7 776 


4227 

0631 1 

00.00 


4028 

26312 

1774 

F ATnC 3 

4029 

06313 

2233 


4013 

06314 

24 27 


4031 

06315 

2016 

FATNC4 

4232 

06316 

7331 


4033 

06317 

7272 


6034 

06320 

2004 

FATNC5 

4035 

06321 

1405 


4036 

06322 

2216 


4037 

06323 

1756 

FATNC6 

4038 

06324 

0462 


4039 

06325 

4562 


4040 

06326 

5764 

FATNC7 

4041 

06327 

4221 


4042 

06330 

3403 


4043 

06331 

1766 

fatncs 

4044 

06332 

3141 


4045 

06333 

6672 


4046 

06334 

5775 

FATNC9 

4047 

06335 

2525 


4048 

06336 

2337 


4049 

06337 

0000 

FATNC, 

405 0 

06340 

0000 


4051 

06341 

0000 


4052 

06340 

2016 

F ATNCH, 

4353 

06343 

2207 


4054 

06344 

7325 


4055 

0*>345 

6334 

FATNCJ, 

4056 

06346 

0000 


4057 

06347 

0000 


4058 



■ 

4059 




4060 




4361 




4062 




40b 3 




406a 




4365 



■ 

4066 




4067 


% 


4 0b 8 




4069 

06350 

1126 

TABOO, 

4073 

36351 

7041 


407 1 ‘ 

06352 

1367 


4072 

06353 

7740 


<*073 

06354 

5360 
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0 r c; c 

16341000210020 

20071777610000 

17741223012427 

f 

20161733117272 

2004;140512216 
17561046214562 
57641422113403 
17661314116672 
57751252512337 

01010 

20161220717325 

60341000010000 


TAO column 

CIA 

TAO taboes 

SWA SZA CLA 
JMP TABOK 


/ ✓ PAGE 11-6 


/GET WHERE ME ARE NOW. 

/COMPARE AGAINST WHERE WE WANT TO BE 
ZOO WE HAVE TO BACK UP? 

/NOPE. 
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ACTS 
4076 
407 7 
4073 
40 79 
4 060 
4061 
4082 
40 5 3 
4 084 
4085 

4 0 8 7 
4088 
4039' 

4090 
4 091 
« 092 
409J 
409a 
4 09 5 
4 09% 

4097 

4098 


06355 
06353 
03357 
06360 
06361 
06 3*2 
06363 
06364 
06365 
£ fr 3 6 6 


06367 

0637? 


1037 

TAO 

0215 

4433 

JMS 

I P P U T C H 

4433 

JMS 

I . RPUTCH 

i!26 TABOK, 

Tad 

CGlL m N 

7r42 

C l* A 

136 7 

TAD 

tabdes 

7 750 

SNA 

spa c«. a 

5770 

J HP 

I T » W 1 N T 

1751 

TAD 

0240 

5557 

JMp 

T ABC*• 1 


V. <. V W 

0? n 7 


TaS'OES. 5 
TPR-JNT, PR I N 


P418-V9 / / pace 11-7 

/Y^P. GIVE C.R, 

/send it 

I e N ^. CH * R * CT " to * lL T " T0 «tupk. 

/6tEGAT£.j 

/* w tRE DO WE WANT To BE? 

/? 

/*ERE. exit. 

/FARTHER UP. 

/GIVE SPACE AND LOOP AGA.IN, 


/nCRma'l EXIT LOCATION. 


/BASIC,L9E 

4299. 

4122 
4121 
4102 

4123 


PAL8-V9 
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4134 

4105 

4136 

4127 

4128 

4129 
4112 
4111 


6403 

PAGE 


4112 

26423 

0300 

CHKFIT, 0 


4113 

26431 

1180 

TAD 

04 

4114 

064 22 

4544 

JMJ I 

SPLEFT 

4115 

26423 

5620 

JMP I 

CHWFIT 

4116 

06424 

4561 

JMS I 

RLInfix 

4117 

26425 

4537 

JMS I 

PRESET 

4118 

06426 

4514 

JMS I 

PPRJNTXT 

4119 

26407 

3562 

UGH 1 

4122 

26413 

3064 

DC A 

snumflg 

«121 

2641 1 

5612 

JMP I 

.♦1 

4122 

4123 

4124 

4125 

4126 

4127 

4128 

06412 

■ r 

2612 

NEWIIN 

4129 

•08413 

0700 

RMLEFT, 0 


4130 

26414 

7120 

CLl 


4131 

06415 

1023 

tad 

ARRLOC 

4132 

26416 

7432 

SZL 

4133 

064 17 

5223 

JMP 

norlpt 

4134 

06420 

7341 

CIA 

4135 

06421 

1024 

TAD 

codeloc 

4136 

06422 

7620 

SNL CL* 

4137 

06423 

2213 

norlft, ISZ 

rmleft 

4138 

4139 
4142 

4141 

4142 

06424 

5613 

JMP I 

RMLEFT 


4143 


# 


/RESET ALL I/O DEVICES. 

/RESET THIS FLAG NOW 
/THIS MAY BE RIGHT, 


4144 

4145 

4146 

26425 

0220 ABS, 

2 



4147 

06426 

3024 

OCA 

ACS 


4148 

4149 
4152 

4151 

4152 

4153 

26u27 

5625 

JMP I 

ABS 

• 




- 
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PAG.E 12-1 


/BASIC 

«L6E 





4154 

864 30 

0300 

3TICKI.0 



4 155 

86431 

3403 

OCA 

I 

ARkLCC 

4156 

06*32 

20-0 3 

U7 

4 »/ 6 


ARRLOC 

41*7 

06453 

5630 

JMP 

I 

5710*1 

c 15 5 






4 159 






4160 






4161 






4162 






4163 

06 4 34 

0??3 

INT, 0 



4 \ h a 

064 35 

4 58 

JMS 

I 

FFJX 

4 165 


7 200 

Cl a 



4 J f! 6 

0U5? 

6546. 

J M 5 

* 

4 

PANORM 

416 7 

0644? 

5*34 

Jvp 

f 

INT 


4162 
4 169 
C « 7 2 

411t 

4 172 

*in 


4i?4 

08 441 

0022 

sxerb, 

S 

4 175 


■ 3 - 


CL A 

4176 


3 >41 


OCA 

4177 

26444 

<i« 77 


JM3 

4175 

26 4 4 5 

2331 


TEXT 

4179 

06446 

1%?4 



4l£0 

06 4 4? 

2132 



9181 

C6452 

0300 



4162 

et45i 

4031 

ATLINE, 

TEXT 

4i«3 

£6452 

2C4D 



416a 

06453 

1411 



4 185 

C6U54 

18C5 



4166 

06455 

4000 




SXERR 

PERRCR 

'SYSTA*• 


AT LIME • 


/INCASE THIS IS JMS'D TO, 
/ANO REMAKE INTO AN "AND" 


4187 

4188 

4189 

4190 

4191 
4 192 

4193 

4194 

4195 


08470 

08471 

06472 

08473 

08474 

08473 

08478 

08477 

08500 


08501 

08502 


4238 

4207 

4206 


/BASIC.L6E 


4209 

4210 

4211 

4212 

4213 

4214 

4215 

4218 
4217 

4216 

4219 

4220 

4221 

4222 

4223 

4224 

4225 

4226 

4227 

4228 

4229 

4230 

4231 

4232 
4213 

4234 

4235 

4236 

4237 
4236 

4239 

4240 

4241 

4242 

4243 

4244 
42«5 

4246 

4247 
4246 

4249 

4250 

4251 

4252 

4253 

4254 

4255 

4256 

4257 
4256 
«259 

4260 

4261 
42«2 
4263 



PAL6-V9 
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4570 

3763 

7240 

3034 

4531 

4566 

2200 

5270 

5503 


4 304 
0514 


MOREOI*,MUSTBE 

3763 


DIM, 


CIA CMA 
OCA 
JMS I 
I SI T 
2002 
JMP 
JMP I 


OIMFLAG 

peval 


/(CR) OR '\* 


MOREOJM 

PEXECUTE/vES 


DELETEO»TEXT * OElETEO * 


06533 0524 

06504 0504 

06505 3700 


06506 1050 AMATCH, TAD 


0650? 
06510 
0651 1 
06512 
06513 
36514 
06515 
06516 
06517 
06520 
06521 


3364 

1064 

3457 

2057 

1063 

3056 

4566 

1762 

5516 

5721 

3043 


OCA . 

TAO 

OCA I 

ISZ 

TAO 

OCA 

IS IT 

1762 

JMP I 

JMP I 

REMPACK 


WORD 

snumflg 

SNU*Pi.G 

FPTR 

FPTfl 

GPTR 

EPTR 


P3LOOP 

.♦l 


/•REM* 


06522 3723 BREAK, 3723124i712356 

06523 2417 

06524 2356 

06525 3*22. (IrEAOY, 

06526 0504 £ 

08527 043-1 

38532 5637 

06531 3703 


TEXT *J>EAOY.^* 


# 


4196 

06456 

7570 

07570, 

7570 








4197 

06457 

1024 

UPARROW 

, T AO 

ACS 







4196 

06468 

7780 


SMA CLA 








4 1 99 

06461 

1256 


TAO 

07570 







4238 

’ 064 8-2 

1025 

■ 

TAD 

ACE 

- .. 



' 



4201 

06463 

7700 


SMA CLA 





• . 

... 

. V 

4202 

06464 

5447 


JMP I 

PARGERR 







4203 

06465 

4508 


JMS I- 

ft It 







4204 

66*46fc 

56 67 

- - \ 

JMP I 

, ♦ 1 • 



' •' 

* * * * " • 

. • • - : * * - ■ / ; ‘ # •*. 

.. > 

4205 

06467 

4365 


UPARR2 







i 













/SASIC 

.L6E 




PA 

6264 

4265 

4266 

4567 

4568 
4269 

42 73 
4271 

4 272 
4?73 

4 27 a 

42 7 5 


6531 

CRLF*,. 

1 


6? 

06532 

•*» r- A 

'4 W 4* 

15 0 X 5 $ 

V 


4 27 7 

06533 

4 522 


JM$ I 

PN0V8LN* 

42?8 

05536. 

13*4 


TAD 

077 >6 A 

4279 

06525 

7108 


ClL 


6283 

£6536 

1063 


T*0 

012 

42 31 

06537 

TCPi 


SNl 


4232 

26560 

7 2 20 


ClA 


4233 

06541 

7 4 38 


SZl 


622a 

06542 

2332 


ISZ 

ISDIG 

62*5 

86543 

5 7 '} ?. 


JMP I 

ISOIG 

4286 

4287 
6288 
4289 
6293 
4291 

36544 

7 7l» 

O7706A, 

7706 


6292 






4293 

06565 

1342 

PZEROCN 

,tao 

PRTEMP 

429a 

06546 

1043 


TAO 

DECEXP 

4295 

06547 

7710 


SPA CLA 


4296 

06550 

5354 


JMP 

.♦4 

0297 

06551 

1243 


TAO 

DECEXP 

6298 

06552 

7242 


CM A 


4299 

06553 

3042 


DC A 

PRTEMP 

4330 

06554 

1044 


TAD 

PNUM9UF 

4331 

06555 

3025 


DC A 

ACE 

6332 

06556 

7344 


CLA CLL 

CMA RAL 

4303 

06557 

7000 

OIGLUP, 

CMA 


4304 

06560 

1043 


TAD 

DECEXP 

6335 

06561 

7440 


SZA 


6336 

06562 

5365 


JMP 

.♦3 

4307 

06563 

1375 


TAD 

C256B 

4338 

06564 

4433 


JMS I 

PPUTCM 

4309 

06565 

3043 


DC A 

•DECEXP 

43J0 

06566 

1425 


TAO I 

ACE 

4311 

06567 

4033 


JMS I 

PPUTCM 

4312 

06570 

2025 


ISZ 

ACE 

4313 

06571- 

2042 


ISZ 

PRTEMP 

6316 

06572 

5357 


JMP 

OIGLUP 

6315 

06573 

5774 


JMP X 

.♦1 

4316 

4317 

06574 

5123 


FMTENF 


6318 

06575 

0256 

02568 , 

256 
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8 K INSERT RETURN, 


/BASIC,L8E 

4319 

4320 

6321 

6322 

6323 
632a 

6325 
6 326 
632T 

6326 
6329 
6333 

6331 

6332 

6333 
6336 

6335 

6336 

6337 

6338 

6339 
6363 • 

6361 

6362 

6363 
6366 

6365 

6366 

6367 

6368 

6369 
6353 

6351 

6352 

6353 

4356 

6355 

6356 

4357 

4358 

4359 


PA18-V9 


/ / 
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6633 


6661 

6662 

6666 


PAGE’ 


L SP » 666 1 
LCF*6662 
LLS *6666 


4360 

4361 

4362 

* 




4363 

6366 

06600 

3334 INTER, 

DC A 

INTAC 

4365 

06601 

7010 

RAR 


4366 

06602 

3335 

DC A 

INTL 

6367 

06603 

6236 

RIB 


4368 

06604 

0374 

AND 

070 

4369 

06605 

1375 . 

TAD 

06202 

4370 

06606 

3371 

DCA 

INTCIF 

4371 

06607 

6234 

RIB 


6372 

06610 

0072 

anO 

07 

4373 

06611 

7106 

CLL RTL 



/SAVE ALL IMPORTANT STUFF ON INTEWUPT, 


/SAVE instruction field 


/SHIFT IT OVER 




















/ / 
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/BASIC.IfiE 


PAU0-V9 


4174 

0661? 

7504 

ral 



a 3 ? *» 

26613 

121b 

•TAD 

062? 1 A 

/AND THE 

t?T6 

06614 

3 372 

• OCA 

INTCDF 


HI 7 7 

06M5 

6231 

06 2-21 A, CDF 

e 

/JUST IN 

a r 7 * 






<*3?V 



IFZERC 

machine* 


a 38D 

266 16 

?? 30 

NOF 


/TO KEEP 


a r- * i 

4 3 $3 
i: P V 


ifnz»o 

J”$ i 


MACHINE* 

spec:nt 


a 3 3 7 

26617 

6341 


TSF 


a 3 s? 8 

26622 

5223 


JMP 

.♦3 

a 3 69 

2*62* 

6?u2 


TCF 


4390 

26622 

5310 


JMP 

INCOUN 

4 391 

2662.3 

6661 


LSF 


4392 

26626 

5227 


JMP 

. * 3 

4 393 

266 25 

6662 


LCF 


439a 

26626 

5313 


JMP 

INODUN 

4 3 95 

3662? 

6 2 21 


P5F 


4396 

66633 

5233 


JMP 

.♦3 

4397 

26631 

6222 


PCF 


6398 

36632 

5312 


JMP 

INODUN 

4?99 

26633 

6211 


RSF 


C4S0 

26634 

5241 


JMP 

INOPPP 

<1421 

36615 

7333 


CIA CLL 

C-ML rar 

aa?? 

26636 

62 «2 


RRB 


44?3 

06637 

3742 


DC A I 

PMRCNAR 

4424 

26642 

5344 


JMP 

INTEXT 

4425 






4406 

26641 

6663 

INOPPP, 

6663 


4427 

26642 

5245 


JMP 

INOTTT 

4428 

36643 

6667 


6667 


4439 

26644 

5344 


JMP 

INTEXT 

4412 






44H 

06645 

6031 

INOTTT, 

KSF 


4412 

26646 

7402 


HLT 


4a l 3 

06647 

6236 


KR6 


6414 

36b53 

0327 


ANO 

0177 

4415 

e665i 

3336 


OCA 

INTEMP 

4416 

26652 

1336 


TAD 

INTEMP 

4417 

06653 

1376 


TAD 

07775 

6416 

26654 

7 4 5-3 


SNA 


44 l 9 

06655 

5265 


JMP 

FCNTLC 

4422 

06656 

1377 


TAD 

077640 

4421 

06657 

7652 


SNA CLA 


4422 

06660 

5303 


JMP 

FCNTLO 

4423 

06661 

7330 


CLA CLL 

CML RAR 

4424 

06662 

1336 


TAD 

INTEMP 

4425 

06663 

3741 


OCA I 

PINCHAR 

4426 

06664 

5344 


JMP 

INTEXT 

4427 






4428 

06665 

1134 

.FCNTLC, 

tad 

NQINT 


/BASIC.L8E 
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4429 

06666 

7640 

SZA CLA 


4430 

06667 

5300 

JMP 

CNTLCF 

4431 

06670 

6002 

CNTLCR, iof 


4432 

06671 

4542 

JMS I 

DELOUT 

4433 

06672 

4537 

JM$ I 

PRESET 

4434 

06673 

4514 

JMS I 

PPRINTXT 

4435 

0667a 

6522 

break 


4436 

06675 

1125 

tad 

PPDLIST 

4437 

06676 

3336 

oca 

POL 

4438 

06677 

5523 

JMP I 

PEOIT 

4439 





4440 

06700 

7040 

CNTLCF, CMA 


4441 

06701 

3134 

OCA 

NCINT 

4442 

06702 

534« 

JMP 

INTEXT 

4443 





4444 

06703 

4542 

FCNTLO, JMS I 

OELOUT 

4445 

06704 

1133 

TAO 

CNTLO 

4446 

06705 

7040 

CMA 


4447 

06706 

3133 

OCA 

CNTLO 

4446 

06707 

5344 

JMP 

INTEXT 

4449 



• 


4450 

06710 

3742 

INODUN, OCA I 

poflag 

4451 

0671 1 

4743 

JMS I 

PCUTIT 

4452 

06712 

5344 

JMP 

INTEXT 

4453 





4454 





4455 





4456 



• 


4457 

06713 

0000 

BIDLE, 0 


4458 

06714 

6002 

IOF 


4459 

06715 

7201 

CLA I AC 


4460 

06716 

3337 

OCA 

BUSY 

4461 

06717 

6214 

. ROF 


4462 

06720 

1215 

TAO 

06201 A 

4463 

06721 

3362 

oca 

INTECDF 

4464 

06722 

1331 

TAO 

idlelk 

4465 

06723 

7104 

CLL RAL 


4466 

06724 

1332 

TAO 

IOLEAC 

4467 

06725 

6211 

IOLECO. CDF 

10 

4466 

0672b 

6202 

IOLECI, CIF 

0 

4469 

06727 

6001 

ION 


4470 

06730 

5733 

JMP I 

IOLEPC 

44? 1 





4472 





447J 

06731 

0000 

IOLEIK, 0 


4474 

06732 

0000 

IOLEAC, 0 


4475 

06733 

7415 

IOLEPC, NULJOB 


4476 



. 


4677 

06734 

0003 

INTAC, 0 


4476 

06735 

023 J 

INTL# 0 


4479 

06736 

0000 

INTE*p, 0 


4460 

06737 

3030 

BUSY, 0 


4481 





w«62 

06 740 

7256 

PhRCHAR,HRCHAR 


0463 

06741 

7255 

PINCHAR,INCHAR 



/CHECK FOR SPECIAL INTFR'jPT DEVICE. 

/IS !T THE TELEPRINTER, 

/NO 

/vrp, CLEAN IT UP, 

/PRINTER? 

/YEP. 

/PUNCH? 


/READER? 

/NOPE. 

/4000 TO AC 

/read IN THE character. 

/EXIT FROM the INTERUPT, 

/LINE PRINTER ERROR? 

/NCPE. 

/YEP, INGORE THE LINE PRINTER NOW, 
/ANO EXIT, 

/IS IT THE KEYBOARD, 

/NOPE. 

/READ IN THE CHARACTER. 

/CHOP OFF THE STUFF, 

/SAVE IN THE INTERUPT TEMPORARY, 
/RECALL IT NOW 
/IS IT A *C 
/? 

/ YE 5 1 
/* 0 ? 


/SET HIGH ORDER BIT ON FOR SAFETY, 
/PUT IT AWAY 

/AND EXIT FROM INTERUPT, 

/CHECK IF OK TO INTERUPT. 



/ / 
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/NOT OK, 

/TURN OFF XNTERUPTS TO BE SURE, 
/DELETE OUTPUT BUFFERS, 

/RESET ALL I/O DEVICE5. 

/GIVE THE STOP MESSAGE 
/ 

/RESET PUSH DOWN POINTER 
/AND RESTART CISA8 
/RESET *C FOUND SWITCH. 


/DELETE THE OUTPUT NOW, BABY, 
/NEGATE CNTLO SWITCH, 


/RESET OUTPUT FLAG. 

/PREFORM THE NEXT OPERATION, 



/THE iole routine 


/RESET THE IDLE TASK FLAG, 

/SAVE THE OATA FIELD NOW, 

/AND PLACE IN WHERE TO GO ON IDLE EXIT. 
/RESTORE THE IDLE ROUTINES PARAMETERS, 


/AND 00 THE IOLE STUFF 




V 
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/BASIC 

.l*E 





«4 8a 

0674? 

Tiza 

POFLAG, 

OFLAG 


4485 
BAS 6 
4587 

4 4 i> 8 

26745 

7 04 3 

POUTIT, 

OUTIT 



06744 

1337 

INTEXT. 

TAG 

BUST 

4^92 

06745 

7650 


SNA CL* 


44 9 1 

267 4 b 

5.H5 


JHP 

INTQU 

44?? 

06747 

3337 


OCA 

BUST 


06750 

l v: : 7 


TAD 

2 

fia'Sa 

3*7 51 

3353 


CCA 

IDLE PC 

«4?5 

.e67?j» 

* 5 Z * 


tad 

I \ T A c 

» * 

26 753 

5 3 38 


OCA 

1D L E A C 

««?? 

06 7*4 

1 35 s 


TAD 

In-^l 

4.i' 9 S 

C67S5 

3331 


CCA 

IOuEl* 

4^9? 

£b7 56 

137 1 


TAD 

INTCIF 


PAL8-V9 


/ / 


/GET STATUS. 


*ERE NOT IDLE. EXIT NOW, 
/RESET 8u5T FLAG, 


/SAVE 


/BASIC.L8E 


PAL8-V9 
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4520 

26757 

3326 


OCA 

IDLECIF 


4521 

26760 

1373 


TAD 

INTCOF 


452? 

26761 

3325 


OCA 

idlecof 


4523 

06762 

7402 

INTECD, 

HIT 


/IDLE ROUTINES CALLING CDF. 

4534 

26763 

6231 


ION 



4525 

4526 

26764 

5713 


JHP I 

31 OLE 

/AND GO BACK NOW, 

4527 

4538 

06 7 65 

1335 

INTOU, 

TAO 

XNTL 


4539 

26766 

7124 


CLL PAL 



4512 

06767 

1334 


TAD 

INTAC 


4511 

26770 

7422 

INTCDF, 

hlt 



4512 

267 71 

7422 

INTCIF, 

HLT 



4513 

26772 

6031 


ION 



45U 

4515 

4516 

4517 

26773 

5420 


JHP I 

2 


4518 

4519 
4522 

06774 

0270 

072, 

7e 



4521 

06775 

6222 

06202, 

6222 


* 

4522 

06776 

7 775 

07775, 

7775 



4523 

26777 

7764 

Q7T uD, 

7764 



4524 

. 

* 




« 

4525 

4526 

* 






4527 

4528 






- 

4529 

4532 







4531 






t 

4532 

4533 

4534 







4535 

4536 

4537 
4558 

4539 

4540 


7000 


PAGE 



4541 

4542 

4543 

4544 

4545 

4546 

4547 

4548 

4549 
4552 
4551 




v . 

~ 


4552 

4553 

07202 

0002 

PUTEP, 

2 


/THE CHARACTER PUTTER. 

4554 

07001 

3241 


OCA 

OPUTC 

/SAVE THE CHARACTER NOW, 














I 







P*LS*V9 


/ / 
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/SASIC, UE 


4555 

37?:«? 

6214 


ROF 


4556 

err 3 3 



TAO 

C62316 

«5S7 

27 ?0« 

1237 


OCA 

PUTCOF 

455* 

37335 

6 2 31 

06281B, 

CGF 

2 

4559 

0 730 6 

?4t£ 


SHP . 


*568 

C 7 f 0 7 

4761 

PUTLP, 

JmS ! 

PBIOLE 

4561 


1242 


TAO 

OCGUNT ‘ 

>5*2 

07011 

7452 


SNA 


a5i-3 

07012 

5s23 


JMP . 

PUTC1N 

ttSSa 

37053 

t > t 5 


tad 

OCMlIm 

45*5 

£ •' 2 1 4 

76 50 


5 4 a cl a 


« 5 > 6 

c?<:i 5 




P\>T u? 

K--\ 7 

0 : 2 •• t 

1131 


TAO 

GUTDEV 

**>N« 

r» 7 ^ < f 

7 341 


CIA 


4569 

i?a2c 

1135 


TAO 

OOEV 

<4570 

' e ? r f: t 

7 fc C v? 


S2A CLA 


*5Ti 


5207 


JMP 

PUTLP 

45?? 






<4573 

£7323 

6032 

PJTCIN, 

I OF 


•4574 

2 7-024 

1133 


T * 0 

CNTLO 


CTO?*- 


- 

sna cl* 


« SH 

87C26 

1131 


TAO 

CuTOEV 

4577 

C7027 

3132 


OCA 

OOEV 

4578 

27032 

2242 


ISZ 

OCOUNT 

4579 

87031 

1241 


TAO 

OPUTC 

45«3 

2703? 

.36 34 


OCA I 

IPOINT 

45S 1 

87233 

4301 


JM$ 

OBOP 

458? 

37354 

1165 

IPOINT, 

05L0W 


4583 

07035 

4243 


JMS 

OUTIT 

4564 

87236 

6801 


ION 


4585 

07337 

7a32 

PUTCDF, 

HLT 


4586 

87040 

5600 


JMP I 

PUTER 

4587 






4568 






4589 

8734 1 

0000 

OPUTC» 

8 


4590 

87042 

0800 

OCOUNT, 

3 


4591 






459? 




* 


4593 

07043 

8080 

OUTIT, 

8 


4594 

37044 

1303 


TAO 

oflag 

4595 

87345 

7640 


SZA CLA 


4596 

07846 

5643 


JMP I 

OUTIT 

4597 

07047 

1242 


TAO 

OCOUNT 

4598 

07053 

7458 


SNA 


4599 

27351 

5643 


JMP I 

OUTIT 

4633 

£735-2 

1314 


TAD 

07777 

4631 

07353 

3242 


OCA 

OCOUNT 

4602 

87054- 

1112 


TAD 

COEv 

4633 

87,055 

1273 


TAO 

0 9 07 AB 

4634 

07356 

3333 


OCA 

oflag ' 

4685 

27057 

1780 


TAO I 

OFLAG 

4636 

87360 

3262 


DC A 

.♦2 

4607 

87861 

1665 


TAO I 

OPOINT 

4638 

87062 

7482 


HLT 


4639 

e7cfe3 

7280 

-- 

CLA 

% 


/BASIC 

• LSE 




PAL8 

4618 

87064 

4301 


JMS 

OBOP 

4611 

87865 

1165 

OPOINT, 

QBLOW 


4612 

87866 

5643 


JMP I 

OUTIT 

4613 






4614 

07867 

7280 

OPNUL, 

CLA 


4615 

87378 

3383 


OCA 

OFLAG 

4616 

8707 j 

4542 


JMS I 

OELOUT 

4617 

8707? 

5643 


JMP I 

OUTIT 

4618 






4619 

87073 

7874 

0P0TA8, 

.♦t 


4628 

8787a 

5267 


JMP . 

OPNUL 

4621 

07875 

6846 


tls 


4622 

07876 

6026 


PLS 


4623 

07077 

6666 


LL5 


4624 






4625 






4626 






4627 

07188 

0803 

OFLAG, 

0 


4628 






4629 






4638 






4631 

07101 

3833 

OBOP, 

0 


4632 

07102 

1701 


TAD I 

08CP 

4633 

87103 

1312 


TAO 

OTSTl 

4634 

87104 

7a58 


SNA 


4635 

37135 

1315 


TAD 

OFLOW 

4636 

87106 

1313 


TAO 

OCOR 

4637 

87187 

3701 


OCA I 

OBOP 

4638 

07118 

2331 


ISZ 

OBOP 

4639 

37111 

5781 


JMP I 

OBOP 

4640 






4641 






464? 

37U2 

6681 

0TST1, 

-OSHIGH 


4643 

07113 

1283 

OCOR, 

OBhIGhm 

4604 






4645 

07114 

7777 

07777, 

7777 


4646 






4 647 

07115 

7765 

OFLOW, 

•CBhIGh- 

<i*oblow 

4648 


7115 

OCMLIM«CFLOW 


4649 






4650 






4651 

07116 

8303 

RE SET 1, 

0 


4652 

87117 

7231 


CLA I AC 


4653 

07123 

3131 


OCA 

outdev 

4654 

07121 

7201 


CLA 1 AC 


4655 

07i?? 

3133 


OCA 

0UTD2 

4656 

87123 

7231 


CLA I AC 


4657 

07‘24 

3127 


OCA 

INOEV 

4658 

07125 

3133 


OCA 

CNTLO 

4659 

87126 

3134 


CCA 

NOINT 

4668 

37t27 

6281 


COF 

0 

4661 

07138 

3756 


DC A I 

OHRCMAR 

466? 

37131 

3762 


OCA I 

s:\char 

4663 

37132 

3757 


OCA I 

PSuSY 

4664 

07133 

3768 

. 

OCA I 

PPXRA 


/READ TmE DATA FIELD NOW, 

/CREATE PROPER CDF INSTRUCTION, 

/SAVE CDF INSTRUCTION, 

/RESET COF TO This data FIELD, 

/CALL IN THE IDLE ROUTINE NOW, 

/GET NUM3ER OF CHARACTERS IN TN£ BUFFER, 

/PUT IT IN 

/TEST FOR TOO many IN BUFFER, 

/YEP. WAIT AWHILE, 


/CHECH FOR A MATCH, 

/NOPE, WAIT FOR BUFFER TO BECOME EMTPV, 
/TURN THEM OFF, 

/CHECK FOR CONTROL "O" ACTIVE. 

/MOVE OVER OUTPUT DEVICE., 


/stick a character in the buffer, 

/BOP UP THE POINTER NOW, 

/SENO IT OUT 
/RESTORE INTERUPTS, 

/USER'S CORRECT COF 


/FLAG STILL UP, EXIT, 


/NO CHARS TO GO, SO WE WILL, 
/ 


. /map OEVICE INTO. TABEL TOO FT WHAT TO 00. 
/AND ALSO RESET FLAG AT THE SAME-TIME, 
/GET THE MAGIC INSTUCTION. 

/AND PLACE IT MERE, 

/GET THE CHARACTER, 

/ANO HALT, 

/AFTER PRINTING THE CHARACTER, 


9 / / PAGE 13-2 

/WE SHALL INCREMENT THE POINTER, 

/ANO EXIT, 

/RESET OFLAG 

/SO 0EVICE5 INACTIVE, 

/DELETE ANY STRAY CHARACTERS IN THE BUFFER, 
/ANO RETURN NOW, 


/NUL OEVICE (NO ECHOING) 


/CLEAR NO-INTERUPT FLAG. 
/RESET OATA FIELD TO HERE, 

/clear all input flags, 

/ANO ALSO THE BUSY FLAG, 
/RESET NULL AFTER C.R, FLAG, 
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/SASIC 

4665 

4 666 

4667 

4666 
4669 
467? 
4671 

.L8E 


IFNJR0 
ClF COF 
JMS I 

IFZERG 

PA 

machine* 

10 

LLLUUU 

> 

MACHINE* 

4672 

P7134 

62J1 

COE 

10 

4673 

46 74 

4675 

37135 

6001 

ION 

> 

4fc7& 

07136 

6665 

6665 


4677 

4678 

4679 

37137 

5716 

JMP I 

RESETl 

4680 

4b S 1 
4682 
4653 

0*140 

0352 

LLLUUL » UUULLL 


4664 

37141 

30 70 

RESET2, 0 


4655 

07142 

4537 

__ .JMS I 

PRESET 

46t6 

37*43 

4542 

JMS I 

CELOUT 

4 6 8 7 

0*144 

5320 

DC A 

OFLA& 

4666 

4669 

'1690 

4691 

07145 

5741 

JMP I 

RESET2 

4692 

07146 

0000 

OUTDEL, 0 


4693 

07147 

3242 

OCA 

OCOUNT 

4694 

07150 

1355 

TAD 

OPRST 

4 695 

07151 

3265 

DC A 

OPOINT 

4696 

07152 

1355 

TAD 

OPRST 

4697 

07153 

3234 

DC A 

IPOINT 

4698 

4699 

07154 

5746 

JMP I 

OUTDEL 

4700 

07155 

1165 

OPRST, 08L0W 


4701 

07156 

7256 

QWRCHAR.HRCHAR 


4702 

07157 

6737 

P8USY, BUSY 

. 

4703 

07160 

0776 

PPXRA, PUT XR A 


4704 

07161 

6713 

P8IDLE, BIDLE 


4705 

4706 

4707 
4738 

4709 

4710 

4711 

4712 

4713 

e7162 

7255 

SINCMAR,INCHAR 

\ 

4714 


- 

• • • ‘ 

. . ' 

4715 

4716 

4717 

4718 

4719 






•V9 

/PREPARE TO RESET CLOCK. 

/RESET CLOCK NOW (OR RATHER A-D BUFFFR), 

/TELL LRT IT'S OK TO INTERUPT NOW, 
/POINTER TO UPPER CORE PCSFTER, 


/B4SIC.L8E 

ft 720 

4721 

4722 

4723 

4724 

4725 

4726 


4727 

07163 

7201 

lptqut, cla iac 


4728 

07164 

7001 

PTPOUT, IAC 


4729 

07165 

7001 

ttyout, iac 


4730 

07166 

3131 

DC A 

OUTOEV 

47 31 

07167 

1131 

TAD 

OUTDEV 

4732 

07170 

3130 

OCA 

0UTD2 

4733 

07171 

5375 

JMP 

DEVCOM 

4734 





4735 

07172 

7201 

PTRIN, CLA IAC 


4736 

07173 

7201 

TTVIN, IAC 


4737 

07174 

3127 

DC A 

INDEV 

4738 





4739 

07175 

4177 

OEVCOM, JMS 

GETWD 

4740 

07176 

4570 

OEVCON, MuSTBE 


4741 • 

07177 

2000 

2000 


4742 

07200 

5503 

JMP I 

PEXECUTE 


4743 

4744 

4745 

4746 

4747 

4748 

4749 

4750 

4751 

4752 

4753 

4754 

4755 

4756 
4 757 

4758 

4759 

4760 

4761 

4762 

4763 

4764 
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/LINE PRINTER OUTPUT 
/PUNCH OUT 
/TTY OUT 
/AND SET IT UP 

/ALSO MOVE OVER TO SECONDARY DEVICE 
/AND CHECK FOR END. 


/C.R. OR \ 


4765 

4766 

4767 

4768 

4769 

4770 


4771 

07201 

0000 GETCH, 

e 


. 

4772 

. 07202 

4270 

JMS 

GwwERE 


4773 

07203 

4657 

JMS I 

gsidle 


4774 

07204 

1255 

TAD 

INChar 










PAL8-V9 


/ / 


/B&51C.L8E 


PACE 13-5 


U7?S 

07205 

7053 


SNA 


o7?6 

07226 

5203 


JMP 

GETCH+ : 

4 7 7 7 

e7£07 

3027 


and 

0177 

e?7* 

0 7212 

3250 


DC A 

GT£MP 


0721 1 

3255 


CCA 

I *0- Aft 


07212 

3256 


OCA 

MPCHAR 

47^1 

07213 

1135 


TAO 

PS3WCH 

ft 7 6 3 

07210 

n*3 


SNA CL* 


cTsi J 

07215 

5224 


JMP 

GR8 

ft?*- 

07216 

1250 


T 4 ft 

GTEMP 

4785 

07217 

1262 


7*0 

3 7 e« j 1 

i 7 ? s 

07222 

7602 


5 i Cl* 


a 7 $7 

2? >21 

52?o 


Jy.S 

G p* S 

«?S8 

07, >2 

1261 

GROEL * , 

TAD 

OUT 

4789 

07223 

5601 


JHP I 

GETCH 

4793 






«79i 

e7224 

1254 

GPS, 

TIC 

GT£*P 

4 7 52 

37225 

1355 


TAD 

07770 

47 5J 

07256 

7453 


SNA 


0793 

27227 

5222 


JMP 

GROELA 

4 7 '■* *i 

27 2 30 

1262 


T *0 

07612 

47 96 

07231 

7453 


SNA 


479? 

27232 

5207 


JMP 

GALT 

4 798 

07233 

1266 


TAO 

0143 

0799 

07234 

7650 


SNA CLA 


0 83® 

07235 

5207 


JMP 

GALT 

0531 

07256 

1254 


TAO 

GTEMP 

0833 

07237 

1263 


TAO 

O76O0C 

0533 

07200 

7510 


SPA 


0830 

07241 

5251 


JMP 

GOUT 

0505 

07202 

1264 


TAD 

07706 

0536 

07243 

7500 


SNA 


0837 

37204 

5251 


JMP 

GOUT 

0833 

07205 

1265 


TAO 

0132 

0809 

07206 

5601 


JMP I 

GETCH 

0813 






0311 






0812 

07207 

1267 

GALT, 

TAD 

0175 

0813 

07250 

5601 


JMP I 

GETCH 

0310 






0815 

07251 

7200 

GOUT, 

cla 


0316 

07252 

1250 


TAD 

GTEMP 

0817 

07253 

5601 


JMP I 

GETCH 

0818 






0819 

07254 

0000 

GTEMP, 

0 


0823 

07255 

0000 

INCHAR, 

0 


0821 

07256 

0030 

HRCWAR, 

0 


082? 






OS 23 

07257 

6713 

CBIOLE, 

SIDLE 


0324 






4525 

07260 

7601 

07601, 

7601 


0826 * 

07261 

0137 

0137, 

137 

- 

0827 

07262 

7612 

07612, 

7612 


0828 

07263 

7640 

O7640C, 

7640 


0829 

07264 

7746 

07746, 

7746 

t 

/BASIC 
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0833 

07265 

0132 

0132, 

132 


0331 

07266 

0143 

0143. 

143 


0832 

07 267 

0175 

0175, 

175 


0833 






0830 






09 35 






0836 






0837 

07270 

0000 

GWHERE, 

0 


0939 

07271 

7240 


CLA Cm A 


0839 

07272 

1127 


TaO 

INDEV 

0800 

07273 

2270 


isz 

GmhERE 

4901 

07270 

7750 


SPA SNA 

CLA 

0802 

07275 

5670 


JMP X 

GWHERE 

0803 






0800 

07276 

1264 


TAO 

07746 

0905 

07277 

3254 


OCA 

GTEMP 

0806 

07330 

3256 


OCA 

hRCmAR 

0807 

07301 

6014 


RFC 


0808 

07302 

1256 

HRLOP, 

TAO 

HRCHAR 

0809 

37303 

7440 


SZA 


0853 

07304 

5321 


JMP 

HFOUND 

0851 

07305 

2255 


ISZ 

INCHAR 

0852 

07336 

5302 


JMP 

HRLOP 

0853 

07307 

2254 


ISZ 

GTEMP 

0850 

07310 

5302 


JMP 

HRLOP 

0855 






0856 

07311 

7201 


CLA IAC 


0857 

07312 

3131 


OCA 

OUTDEV 

0858 

07313 

3133 


OCA 

cntlo 

0859 

07314 

4514 


JMS I 

PPRINT: 
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/INPUT»TTY 


/START THE reader how. 


/GOT IT, 




/RESET OUTPUT OEVICE FOR A SECOND. 
/RESET THE CONTROL "0" SWITCH ALSO, 
/GIVE The MESSAGE, 
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CSfcO 

4861 

07315 

07316 

7323 
72? i 


HRME5 
CLA I AC 


4? 62 

3 7 31 ? 

312 7 


DC a 

INDEV 

4*63 

4864 

3 7 32? 

5670 


JHP I 

GwhERE 

4565 

0 7 321 

2270 

HFOUND, 

IS? 

COHERE 

4 6 6 6 
4Sb7 

4668 

-S&9 

07322 

56 7 0 


JHP I 

DpHER £ 

a a ? s 

46T j 

4 3 72 
66 7 3 
4574 
4375 
48 76 

07323 

07*24 

3 ? 325 

3724 

?4?1 

3 7 30 

MRMfcS, 

TEXT 

# * ?TY -. 

4977 

07326 

3000 

cowt. 

0 


48 7 8 

37 327 

6 2? 1 


COP 

0 

4879 

07 3 50 

374? 


OCA I 

CCXRA 

4383 

3?23i 

174 3 

COwTLP. 

TAD I 

COwTPP 

4 681 
486? 

0733? 

£?333 

62M-- 

7652 


CDF 

SNA CL* 

10 

«6e3 

37334 

53-0 


JMP 

CO-TD 

4684 

07335 

4744 


J«S I 

CChTw 

4885 

07336 

6231 


CDF 

0 

4886 

37357 

5331 


JMP 

COwTLP 

4887 

07340 

3133 

COwTO, 

OCA 

CNTLC 

4888 

4889 

4890 

4891 

4892 

07341 

5726 


JHP I 

COWT 

4893 

07342 

0776 

CCXRA, 

putxra 


4694 

07343 

7100 

CCwTPP, 

OFLAG 


4895 

4896 

4897 
4598 
4899 
4933 

4931 

4932 

4933 

4904 

4905 

4906 

4937 

4938 

07344 

6713 

COhTW, 

biole 

* 


4 939 






4910 

4911 

4912 

4913 

4914 




3 " 



/TMIS ROUTINE KAIT5 roo OUTPUT TP STOP 
/SET O.r, TO This FIELD, 

/SET CW RESET NULL AFTER C.R. F L AG, 
/GET OUTPUT FLAG STATUS, 

/RESET O.F, 

/is output done? 

/YEP, EXIT, 

/NOPE, I OLE LOOP TILL INTERUPT, 

/RESET O.F, TO ZERO, 

/AND LOOP, 

/CLEAR CONTROL 0 STATE. 


e 


/BASIC 

4915 

.L8E 

07345 

0000 

X G H U S T , 0 

PAL8-V9 

/ / PAGE i4-l 

4916 

07346 

4177 

JMS 

GETwD 


4917 

07347 

1345 

TAD 

XGMUST 


4918 

07350 

3352 

DC A 

XMUST 


4919 

07351 

5353 

JHP 

XMUSTM 


4920 

07352 

0000 

XMU5T , 0 



4921 

07353 

1450 

TAD I 

WORD 


4922 

07354 

6201 

CDF 

0 

/'"""" 8 K INSERT, 

4923 

07355 

1752 

tao I 

XM'JST 


4924 

07356 

6211 

CDF 

10 

s K INSERT, 

4925 

07357 

2352 

ISZ 

XHUST 

4926 

07360 

7 6 53 

SNA CLA 



4927 

07361 

5752 

JHP I 

XM(JST 


4926 

4929 

4930 

4931 

4932 

4933 

4934 

4935 

4936 

4937 
4936 

4939 

4940 

4941 

4942 

4943 

4944 

4945 

4946 

07362 

5503 

JHP I 

PSXERR 

• 

4947 

07363 

4477 

ARGERR, JHS I 

P E R R fi w 


4946 

07364 

0122 

TEXT 

•ARGUMENT* 


4949 

4 950 

4951 

4952 

07365 

07366 

07367 

07370 

0725 

1505 

1624 

3035 




4953 

4954 

4955 

4956 

4957 

4958 

4959 

4960 

4961 

07371 

07372 

5660 

0003 

DOTZERO.TEXT *,c 

1 # 

• 

4962 

07373 

4477 

RTERR. JHS I 

PERRCR 

/GIVE RATE ERROR for CLOCK, 

4963 

4964 

07*74 

07375 

2231 

2405 

TEXT 

'RATE ' 

4965 

4966 

4967 
4966 
4969 . 

07376 

3033 


• • 

• 
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0973 

4971 

*972 

4973 

4974 

4975 
097* 
49 7 7 
4 978 
4 9*9 
45«c 
c 9 s* 

a <5.? 2 
« 9 £ 5 
4 9 -j ,ii 
4.9 S 5 
4 9**) 

4 9 $7 
4547! 
4935 
4 59 3 
a<*9 i 
4992 
4593 
e«m 

4995 

4996 
4957 
6993 
4999 
5533 

5331 

5332 
5233 
5304 
5325 
5236 
5337 
533® 
5039 

5013 
5011 
531? 
5213 

5014 

5015 

5016 
5217 
5318 
5019 
5323 

*5321 

5322 

5323 
5224 
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7 4 33 


07420 

07401 

07422 
37433 
07434 
37435 
07436 
07407 
3741 0 
0741 1 
07412 

0741 3 
37414 
07415 
37416 
07417 

07«20 

07421 

07422 

3742J 

07424 


1 1 36 
7843 
5220 
1240 
4544 
7410 
5 7 55 
1033 

3311 
1333 
1240 
3033 
7240 
1303 

3312 
4314 

3313 
4177 
4641 
4435 
62 i 7 


PAGE 


IPZEK'O MACH J8£« 
NCPyNCH* 

plot, tac oisb 
SZa CLA 

JMP DSGOT 

tad pa$su m e 

JMS I 3PLEPT 

SKP 

JMP I NPSPERR 

TAO ARRLOC 

dca oust 

tad aprlqc 

TAO PAS3UME 

OCA ARRLOC 

CLA CMA 

7AO ARRLOC 

OCA ODLAST 

JMS PLOTS 


08G0T, • DCA 
JMS 


obao 
GST wO 
JMS I PHEVAL 
PESTER 

fmp*fshiptapwo*. 


/GET BUFFER AOORESS. 

/IS THERE one? 

/GET ASSUMHEO LENGTH. 
/ROOM LEFT TO FIT IT IN. 

/NO, 

/OfT A USABLE AOORESS. 
/SAVE AWAY. 

/NOW UPDATE OUR ARRAY. 


AH ri ST W0R0 OFOu * PUFFER NOW. 

/AND Go, 

/FIGURE OUT 

yrfb 1 * V P0INT IS ON SCREEN 
/GET NEXT SYNTATICAL ELEMENT. 

/evaluate OUR expression. 

/CORRECT NUMBER FOR SYMMETRICAL SCREEN, 


/BASIC.L8E 

5025 

27425 

5026 

07426 

5027 

07427 

5328 

07433 

5029 

07431 

5030 

07432 

5031 

07433 

5332 

e7«34 

5233 

07435 

5034 

07436 

5035 

07437 

5038 


5037 

07440 

5038 

27441 

5039 

07442 

5340 

07443 

5041 

07444 

5042 

07445 

5043 


5044 


5045 


5046 


5047 


5048 

07446 

5049 

07447- 

5050 

27450 

5051 

07451 

5852 

87452 

5053 

07453 

505fl 

07454 

5055 

07455 

5056 

07456 

5057 

07457 

5058 

07460 

5259 

07461 

5060 


5061 


5062 

07462 

5063 

074b 3 

5064 

07464 

5065 

07465 

5066 

07466 

5867 

07467 

5068 

07fi70 

5069 

07471 

5070 

07472 

507 J 

07473 , 

5072 

07474 

5073 

07475 

507a 

07476 i 

5075 

07477 j 

5276 

07500 ] 

5077 

07501 -.4 

5078 

07502 e 

5079 

07523 2 


0000 

4326 

4641 

4326 

1313 

7041 

1311 

3311 

7333 

3711 

5642 

1753 

7415 

7176 

2037 

1600 

0300 


PAL8-V9 / / r ACE u „ 3 


1136 

7640 

5661 

4262 

1020 

3311 
1017 

3312 

4314 

4177 

5642 

0467 


0003 

4571 

7002 

1050 

3332 

2050 

1452 

7331 

3322 

2053 

1450 

3303 
2050 
1450 

3304 
4502 
0000 
0030 


FEX1T 

JMS 

JMS I 

JMS 

TAD 

CIA 

TAO 

OCA 

CLA CLL 
OCA I 
JMP I 


08LIT 
PMEVAL 
OBLIT 
03 AO 


DINP 
OINP 
CML 
OINP 
POEVCON 


RAR 


PASSUME.1750 
PHEVAL, MEVAL 
POEVCCn.OEVCON 
FSHIFT, 2007;l600|0020 


USE, TAD 

SZA CLA 

J*P I 

JMS 

TAO 

OCA 

TAO 

OCA 

JMS 

JMS 

jmp r 

USXIPIT,SKIPIT 


0IS8 

USX IP IT 
GETARY 
AC 1 
0LA3T 
AC2 

OOLAST 

plots 

GETWD 

POEVCON 


/PUT IT IN THE BUFFER. 

/GET Y COORDINATE, 

/PUT IT IN THE BUFFER. 

/IS IT A BAD ONE? «CFF SCREEN?* 


/4000.ENO OF BUFFER CHARACTER. 


/MAGIC CONSTANT FOR SYMETRICAL SCREEN. 


/IS display buffer ASSIGNEO. 

/TES. EXIT. 

/GET THE ARRAY OATA 
/GET FIRST FREE LOCATION 

/GET SECOND FREE LOCATION 
/SAVE AWAY, 

/SET UP STUFF, 

/GET NEXT elimaent AFTER VARIABLE* 


uvp, 

UtP, 


0 

CET^MUSTBE 

7000 

/THIS ROUTINE GETS THE FIRST 
/MUST BE A VARIABLE, 

TAO 

CCA 

WCRO 

UVP 

/GET POINTER 

TO VARIABLE. 

ISZ 

mQRD 



TAO I 

I A C 

WORO 

/GET POINTER 

NOW, 

OCA 

ISZ 

AC 1 

WORO 

/5AVE AWAY, 


tad I 

WCRO 



OCA 

uip 



ISZ 

WCRO 



tad I 

WORD 



OCA 

U2F 


. T 

JMS I 

PGETADO 










IDENTIFICATION 


PRODUCT CODE 

DEC-08-LBASA-A1-LA 

PRODUCT NAME 

LISTING OF 8 K BASIC R./j- 

DATE CREATED 

DECEMBER 13 , 1973 
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/BASIC.L8E 


L A 8 » 8 \ E BASIC'- 

CCevSlG^T 1971, DIGITAL EQUIPMENT CORPORATION 
MAYNARD, MASS, C 017 54 9 

**P I T T t n Hr JACK BURNESS 


T) -:rs PASIC IS A COMBINATION OF LA6-C/E BASIC 
AND 8K-BASIC FOR THE POP-8. TO CREATE IT 
FOR THE LAB-8/E St T M M A CHINE *1", TO CREATE IT FOR 
THE pdp-6 SET "MACHI\E*2", 


0300 


machine*^ 


this code overlays the binary -loader in field 

ONE to MAKE LAB-8/E BASIC SELF STARTING, 


IFN2R0 

machin 

field 

l 

*7700 

JMP I 

UGETWD 

*6000 


DCA 

UTEMP 

tad 

INThlT 

OCA I 

INTFLC 

TAD 

UTEMP 

SZA 

JMP I 

INTPLC 

C IF CDF 
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JMP I 
START 

Inthlt, hlt 
INTPLC, 7700 


.♦l 
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0000 


FIELD 0 


/TO HELP BINARY LOADER IN CASE HE BLOWS IT. 
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PACE 14-4 


soas 

07504 

0000 

U?P, 

0 





5C81 

07505 

7326 


CIA 

CLL 

CML PTL 

/♦2 


50 3 2 

07505 

1067 


TAO 


ADDRESS 



50*5 

.37507 

3217 


OCA 


AC2 



5C*a 

07.610 



JMP 

I 

CtTARV 



5.055 

5 t**6 

3751 1 

‘3202 

DLAST, 

0 





5S8 7 


7511 

DINP«DLAST 





5?S« 

07512 

070 2 

ODIAST, 

0 





5 2 8 9 
5? ^0 

£7513 

0000 

OB AO , 

0 





5391 ' 
S?*2 
5*-S3 

5 ? * a 
52-95 
5294 









5097 

Sc 9 6 
5099 
5lS0 

5 ! 3 J. 









5132 









5101 

5124 









5105 

5135 

5137 

5108 

07514 

0300 

PLOTS, 

0 





5109 

37515 

7240 


CLA 

CMA 




5110 

07516 

1311 


TAO 


DLAST 



5111 

07517 

3136 


OCA 


OISB 



5112 

07520 

1325 


TAD 


04021 



5113 

07521 

3712 


DC A 

I 

DDL AST 



5ii« 

07522 

7330 


CL* 

CLL 

CML RAP 



5115 

07523 

3711 


OCA 

I 

DLAST 



5116 

07524 

5714 


JMP 

I 

PLOTS 



5117 

5116 

5119 

5120 

07525 

4001 

04001, 

4001 





5121 
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5124 









5125 









5125 

5127 









5128 

07526 

0000 

OBLIT, 

0 





5129 

07527 

1024 


TAD 


ACS 



5130 

07530 

7700 


3MA 

CLA 




5131 

07531 

5335 


JMP 


• ♦A 



5132 

07532 

7326 

DBSAD, 

CLA 

CLL 

CML PTL 


- 

5133 

07533 

3313 


OCA 


DSAD 



5134 

07534 

5347 


JMP 

- 

DBISRT 

t 
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5135 

07535 

1025 


TAD 

ACE 


5136 

07536 

1354 


TAD 

075778 


5137 

07537 

7700 


SMA CL* 



5138 

07540 

5332 


JMP 

08BAD 

' . ■ 

5139 

07541 

1025 


TAD 

ACE 


5140 

07542 

1065 


TAD 

012 


5141 

07543 

3025 


DC A 

ACE 


5142 

07544 

4506 


JMS I 

PFIX 


5143 

07545 

7200 


CLA 



5144 

07546 

1016 


TAD 

AC3 


5145 

07547 

4356 

DBISPT, 

JMS 

OBPUT 


5146 

07550 

7332 


CLA CLL 

CML PAP 


5147 

e755i 

2311 


ISZ 

DINP 


5148 

07552 

4356 


JMS 

DBPllT 


5149 

5150 

07553 

5726 


JMP I 

oblit 


5151 

5152 

07554 

7577 

075778, 

7577 


* 

5153 

07555 

0370 

NPSPEPP 

, SPACEPP 



5154 

5155 

5156 • 

07556 

0000 

08PUT, 

0 

• 

- 

5157 

07557 

3017 


OCA 

AC2 

• 

5158 

07560 

7350 


CLA CLL 

CMA PAR 

/•4001O777 

5159 

07561 

1711 


TAD I 

DINP 


5160 

07562 

7fe50 


SNA CL* 



5161 

07563 

5755 


JMP I 

NPSPEPP 

/NO ROOM IN BUFFER, 80MB HIM 

5162 

07564 

1017 


TAD 

AC2 


5163 

07565 

3711 


DC A X 

DINP 


5164 

5165 

5166 

07566 

5756 


JMP I 

DBPUT 


5167 

07567 

4477 

UllD A T A , 

JMS I 

PEPROP 


5168 

07570 

0155 


TEXT 

*a-o full* 


5169 

07571 

0440 





5170 

07572 

0625 





5171 

07573 

lata 





5172 

07574 

0000 






517 3 

5174 

5175 
517fe 

5177 

5178 

5179 
5182 

5181 

5182 

5183 

5184 

5185 

5188 ENPUNCH 

5187 

5188 

5189 IFNZRO MACHINE* 
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519* 

5Hi 

5192 

5193 
5l9ii 
5195 
5194, 
« 197 
5195 
5199 
52 2? 
52 : t 
52 2? 
52 2? 

5224 

5225 
52'!, 
5227 
522 5 


5215 

5217 

5215 

5219 

5222 

5221 

5222 

5223 
522a 
5225 
5225 

5227 

5228 

5229 
5233 

5231 

5232 

5233 
523a 
5235 
5235 
5237 
5235 

5239 

5240 
52a i 
52«2 
52a J 
524il 


7«C0 


PAGE 


IFZERO MACHINE* 
•plot* 


5205 

07400 

8020 SETUP, 

0 


5213 

0 X TC’01. 

1235 

TAD 

PSY*TA8 

5211 

07402 

3058 

OCA 

epts 

5212 

07403 

1038 

tad 

NSVMTAS 

5213 

07404 

3057 

OCA 

FPTR 

5214 

07«05 

3135 

OCA 

01 SB 

5215 

07405 

5500 

JMp I 

SETUP 


07407 
C7aie 
07ai i 


0000 


0000 

5050 

5055 


IFNZSO machine< 
CDEvCOM,OEVCOM 

> 

IFZERO MACHINE* 
COEVCOM«0 

> 


I SET # 



0 

one 

Dixy 


‘ \ 

' l 

V / 
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5245 

5246 

5247 

5248 

5249 
5252 

5251 

5252 

5253 

5254 

5255 
5255 

5257 

5258 

5259 

5250 
525! 

5252 

5253 

5254 

5255 


5280 

5281 

5282 

5283 

5284 

5285 
5285 


07412 
0 7 ft 1 J 
0 7 ft 1 ft 


4514 

5507 

7141 


11 X R ( 


JMS I 
J HP I 
RESETS 


IIXR 

ISET 


IFZERO MACHINE* 
NOPUMCH> 


5255 

07 ft t 5 

0P00 

HEVAL, 0 


5267 

07416 

4566 

ISIT 


5268 

0 7 ft 1 7 

2000 

2000 


5259 

0 7 ft 20 

7410 

SKP 


5273 

07«21 

5500 

JMP I 

PSXERR 

5271 

27422 

4566 

ISIT 


527S 

07423 

3763 

3763 


5273 

07424 

5227 

JMP 

.♦3 

527 ft 

07425 

4177 

JMS 

GETwD 

5275 

07ft26 

5216 

JMP 

MEVALM 

5278 

07427 

1215 

TAD 

MEVAL 

52 7 7 

07430 

5631 

JMP I 

mevalgo 

5278 





5279 

07fl3l 

1007 

MEVALGO,EVAUGO 





/IS IT A C.R. 


/# 


5287 

•27432 

1136 clear, 

TAD 


01 SB 



5288 

07433 

7ft5C 

SNA 



/IS IT 

THERE? 

5289 

07434 

5430 

JMP 

I 

COEVCOM 

/NOPE, 


529? 

07435 

3011 

OCA 


INOEXI 



5291 

07436 

7330 

CIA 

ClL 

Cml RaR 

/4033 


5292 

37 a 37 

3413 

OCA 

I 

INOExi 



5293 

27ftfl0 

6231 

COF 


0 

/RESET 

input pointer also 

5294 

07ftfti 

1013 

TAO 


INOEXI 


' 

5295 ' 

07442 

3645 

OCA 

I 

CDINP 



5298 

37443 

6211 

COF 


10 



5297 

07ftft« 

5400 

JMP 

I 

COEVCOM 




5298 
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5103 

5 3 ? 1 

5332 
*, 5:3 

07 445 

7511 

COIN?, 

OINP 


5304 

5335 

?744N 

CPOtf 

LLLJMS, 

S 


55?6 

27447 

1 646 


TAD I 

L L L J M $ 

5 3? 7 

3 7 a50 

2,? 4 1 > 


ISZ 

L'.lJ“S 

5 J£ 8 

£7*5! 

3257 


DC A 

L L t J M P 

5339 

2 7 « 5 2 

4(457 


JMS I 

L11J v ? 

5310 

0 7 4 5 3 

7413 


SKP 


/IN CASE CP SKIPPING RETURN. 


/BASIC 

5311 

»L S£ 

27«54 

2?c6 

ISZ 

Pi 

LLLJ M S 

5 31? 

?7«55 

6 213 

C IF CDF 

12 

5313 

2745s 

5b 4 b 

JMP 1 

LLLJMS 

531« 

5315 

5316 

07457 

0?22 

LLLJ M P # 0 

53 IT . 

37460 

1657 

1 TAD I 

LLLJMP 

5318 

6 7461 

3257 

OCA 

LtLJ M P 

5319 

07462 

5657 

JMP I 

LLLJMP 

532? 

5321 

532? 

5323 

5324 
5525 

5326 

5327 

5328 

5329 
533? 
5331 

27463 

7326 

DELAY, CLA CLL 

CML RTL 

533? 

0 7 4 6 4 

3220 

OCA 

NOEL Ay 

5333 

5334 

5335 

5336 

5337 
5358 
5339 
534? 



IFNZRO 
NUL JOB, TAD 

IF ZERO 

MACHINE* 
01 SB 

MACHINE* 

5341 



. ENPUNCH 


534? 


74 15 

•MEvAL 


5343 

5344 

C7«15 

7001 

NULJC8, I AC 


5345 

07416 

5215 

JMP 

NULJ06 

5346 

5347 

5348 

5349 
535? 

07417 

3015 

NOPUNCH> 

OCA 01 SAUTO 

5351 

07425 

1220 

tad 

NOELAY 

5352 

07421 

7110 

CLL RAR 


5353 

07422 

3223 

OCA 

noelay 

5354 

07423 

7430 

SZL 


5355 

07424 

5400 

JMP I 

CDEVCOM 

5356 

07425 

1136 

TAD 

01 SB 

5357 

07426 

7650 

SNA CLA 


5358 

5359 

5360 

07427 

5215 

JMP 

NULJOB 

0743? 

1415 

NULLOP, TAO I 

OISAUTO 

5361 

07431 

7512 

SPA 


5J6? 

07432 

5254 

JMP 

NULC M D 

5363 

07433 

1256 

TAD 

O7000C 

5364 

07434 

6052 

01 SO 


5365 

07435 

5234 

JMP 

• •I 
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/♦a 

/SET UP DEALT TIME (ONE TIME THROUGH) 


/SET UP AUTO INDEX REGISTER NOW , 


/WITH POINTER TO OUR BUFFER, 
/UPDATE DELAY WORD, 


/ARE WE FINISHED WITH DELAY COMMAND? 
/YEP, EXIT NOW, 

/GET OUR WORD NOW, 

/ZERO? 

/YEP, WAIT AWHILE, 


/BRING OOWN INTO RANGE OF SCREEN, 
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/CA.m,l«E 


53*6 

5347 

5368 

5389 

SS?0 

5371 

5372 

5373 
5 3 7 a 
5 5’5 
537#, 
5377 
5 3 7 a 


07436 

C7C37 


cue 

M 

4 4 > 
4«3 

cm 

445 
Cut 

0 7 8-4 7 

5 ? - <; ;■ ■; 
0 ' hSJ. 
'3 7 isc.» 


£7 

e* 

07 

Z H 

Z' 
C7 

£7 


6233 

7?20 

KJ5 

7510 

5 ,. J 7 4 
2556 
'jC52 
S?44 
* 3 "5 4 

7 j* ? 3 

5 .- ■' •$ 

i '- :■ 5 


nulc*d 

O7C-30C 

.-I 


*>0*9 

5*.8S 

87 453 

5 c 3 

53 81 


7 23? 

S3 52 
5383 

07;iS5 

52 2 5 

55? e 

27456 

7 :% ■*> (J 

5388 

5 3 36 

07457 

67fc2 


OIL* 

CLA 

T *D I OISAUTO 
SPA. 

JMP 
T AO 

01 SO 

JMP 

OILY 
CL* 

0180 

Cl x* 

JH° NULLOP 


SULJOB 


/CENTER AGAIN. 


533* 

SJ33 

5309 

5390 

5391 

5392 

5393 
539a 

5395 

5396 

5397 
5396 
5399 
5«30 


5401 

07fl62 

4477 

5402 

£7461 

1617 

5403 

07462 

4021 

5404 

07463 

5524 

5435 

37464 

0000 

5406 



5427 



5408 

07465 

2003 

5409 

0 7 466 

6131 

5410 

37467 

5665 

5411 

07470 

6213 

5412 

07471 

5672 

5413 

07472 

0175 

5414 


5415 

# 


5416 ‘ 

• 

• 

5417 



5418 



54 19 


7473 

5420 


7473 


UUNOAD, JMS I 
TEXT 


PEPROR 
* NO A.O* 


ccintk, 0 

62 31 

JMP I CCINTK 
CIE COP 10 
J** l • ♦ l 

CLOCKI 


REALTI*. 
SE TR AT *, 



k 

J 
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5423 

5424 
5426 

5426 

5427 

5428 

5429 

5430 

5431 

5432 

5433 

5434 

5435 

5436 

5437 
5436 

5439 

5440 

5441 

5442 

5443 

5444 

5445 

5446 

5447 

5448 

5449 

5450 

5451 

5452 

5453 

5454 

5455 

5456 

5457 
5456 

5459 

5460 

5461 

5462 

5463 

5464 

5465 

5466 

5467 
5466 

5469 

5470 

5471 

5472 
547J 

5474 

5475 
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7473 

5E TCLC*, 


7473 

W A X T C • , 


7473 

WAIT*. 


7473 

REJECT*, 


7473 

ACCEPT*. 


07473 1450 

TAO I WORD 

• 

07474 6213 

CDF CIF 13 


07475 ?676 

JMP I .♦! 


07476 0731 

UPCCMDO 



♦ 



7477 

TIM*. 



7477 

CLC*. 



7477 

CLS*. 



7477 

ADC* . 



7477 

AOB*. 


07477 

0000 

0 


07533 

1436 

TAO I 

POL 

07531 

6213 

CIF CDF 

10 

07502 

4704 

JMS I 

,♦2 

07503 

5677 

JMP I 

AOB 

07504 

0747 

UPFUN 



/RECALL CORRECT FUNCTION NUMBER (IT'S ON THE STACK) 


7417 

07417 3762 T3TFX, BEGFIX 

07420 0008 NOCLAY, 0 


ENPUNCH 

IFZERO MACHINE* 
*NULJ0B*2> 


J 
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5676 

5677 
5676 
5«79 
5a33 
5v5i 
54*2 
5663 
56-34 
5«SS 
55 36 
5457 
54 36 
5669 
549 5} 

5491 

5492 

5493 
5694 

5495 

5496 
5697 
5693 
5499 

5520 

5521 
5502 
5523 

5504 

5505 

5506 

5507 

5508 

5509 

5510 

5511 

5512 

5513 

5514 

5515 

5516 

5517 
5516 

5519 

5520 

5521 

5522 

5523 

5524 

5525 . 

5526 

5527 

5528 

5529 

5530 
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07421 

0000 

TST, 

0 


074,32 

461 7 


JMS 

I 

0 7 42 3 

6231 


CDF 

074 24 

1631 


TAD 

I 

e-’425 

*211 


COF 

07426 

3016 


CCA 


07427 

4546 


J*S 

I 

0743(j 

5621 



I 

67431 

7255 

TSTp, 

INCMAR 


TSTPX 

0 

T5TP 

10 

AC 3 

PANORM 

TST 


0001 


PIELO 1 




c>J*~ 


C^>- 


- i 

• t 

> : i 

■ I 
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• 0 


5540 

5541 

5542 

5543 

5544 

10000 

10001 

10002 

2045 

0203 

0000 

TEN, 

2045100001 

5545 

10003 

0000 

CLKSTS, 

0 

5546 

10004 

0000 

T JMi . 

0 

5547 

10305 

0000 

TIP2, 

0 

5348 

10006 

0000 

ASDGET, 

0 

5549 

L$007 

0000 

AOACPT, 

0 

5550 

[10010 

0002 

ADCUNT, 

0 

5551 

/10011 

0030 

cltemp, 

0 

5552 

, /l03 12 

0030 

A DC X , 

0 

5553 

I 10013 

3102 

U 1 00 , 
CT3, 

100 

5554 

/10014 

0030 

0 

5555 

} 10015 

0200 

CT2, 

0 

5556 

1 10016 

3000 

CT1, 

0 

5557 

Lk0017 

0177 

U1 7 7 » 

177 

5558 

10020 

4 707 

U4707, 

4707 

5559 

10221 

7775 

U7775, 

7775 

5560 

10022 

0000 

ACOUNT, 

0 

5561 

1C023 

0030 

APUT1, 

0 

5562 

10024 

0303 

APUT2, 

0 

5563 

10325 

0200 

ADAi. 

0 

5564 

10026 

0330 

A 0 A 2 # 

0 

5565 

10327 

0000 

AD A J, 

0 

5566 

10033 

0550 

UUSETF, 

USETF 

5567 

12031 

0673 

UMEVAl, 

UUMEVAL 

5S68 

10032 

0677, 

UPFIX, 

UUPFIX 

5569 

10033 

0007 

U7, 

7 

5570 

10034 

5010 

U5010, 

5310 

5571 

10035 

7767 

U7767, 

77b? 

5572 

10036 

0012 

U10, 

10 

5573 

10337 

0654 

UACi, 

UUAC1 

557a 

10040 

0661 

U A C 2 , 

UUAC2 

5575 

10041 

0666 

UAC3, 

UUAC3 

5576 

10042 

0320 

PPAC1, 

AC! 

5577 

10043 

0?t7 

PPAC2, 

AC 2 

5578 

13 0 4 4 

0316 

PPAC3, 

*c 5 

5579 

13045 

0325 

PPACE, 

ACE 

t cs <^V 

5580 

10046 

e?24 

PPACS, 

5561 

10047 

0317 

U17, 

558? 

13350 

7777 . 

U7777, 

7 7 7 7 

5583 

13051 

0362 

udcao. 

0.0 AO 

5584 

10252 

7760 

U7763, 

7760 

5565 

10053 

•0033 

UTE*P, 

0 


/INSERTED IN UPPER CORE BECAUSE OF FEEBILITY. 
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5586 

10054 

0722 

UJMP, UUJMP 

5587 

t?233 

07er 

UJ^S, UUJM3 

553 8 

1 - ' r h 

C7D5 

UDEvCON.ul'Cf vCON 

55 89 

1SU5? 

'6003 

UGETkO, 6v.' ’0 

5590 

KV6 0 

a«55 

JMS I l 

5591 

1 f G 6 1 

?! 7 7 

• GET-0 


1 

5457 

J»P I 1 

559J 

t ;h3 ,. 


AUTE«p, 0 

559 4 
559$ 

1 ~. ’j a 

>767 

ACCC09, .U . 


5594 
55*7 
5 > vs 

5 ’<• 
5600 

5n'i 

5 5) - 5 

5 fr .> 5 
56;« 
56 25 
5 6 i 6 
5*2? 
5* , 3 

5609 

5610 
5*11 
5612 
5*13 
5ft 1 a 
5615 
5b 11 

5617 

5618 
5bl 9 
5622 

5621 

5622 

5623 
562a 

5625 

5626 

5627 

5628 

5629 
5632 

5631 

5632 


UJMS 

UGETWQ 


/about 5i2 for fudge. 


2202 


0175 


PAGE 


*••3 


56 33 

1B175 

6135 

CLOCKI, 6135 


5634 

18176 

3303 

OCA 

CLKST 

5635. 

12177 

2005 

X sz 

TIM2 

3636 

12200 

5203 

JMP • 

.♦3 

5637 

10231 

2204 ' 

IS? 

TIM1 

5639 

10202 

7?00 

NOP 


5639 

10223 

1006 

tad 

ABDGE 

5640 

10204 

7750 

SPA SNA 

CLA 


/CLEAR CLOCK FLAG. 
/AND SAVE STATUS. 
/INCREMENT CLOCK, 


/IS REAL TIME OPTION RUNNING? 


/8ASIC.L8E 


56M 

56«2 

5643 

564a 

5645 

5646 
56.47 

5648 

5649 

5650 

5651 

5652 

5653 

5654 

5655 

5656 

5657 

5658 

5659 

5660 

5661 

5662 

5663 

5664 

5665 

5666 

5667 

5668 

5669 
567? 
56 7 1 

5672 

5673 
567a 

5675 

5676 

5677 

5678 

5679 

5680 
568 j 
563? 
568 3 

5684 

5685 

5686 

5687 

5688 

5689 
569? 
5fc 9 j 

5692 . 

5693 
5b9a 
5695 


PAL8-V9 


/ / 
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10205 

5234 

<, ■ - 

JMP 

UIEXT 

10206 

1007 


TAO 

ADACPT 

10237 

7650 


SNA CLA 


10210 

•5234 


JMP 

UIEXT 

10211 

1010 


TAO 

ADCUNT 

10212 

3011 


OCA 

CLTEMP 

12213 

1312 


TAO 

ADC X 

10214 

6531 

6531 


10215 

1013 


TAO 

U1 00 

10216 

6536 


6536 


10217 

4451 

UCLOOP, 

JMS I 

UDOAD 

10220 

4263 


J M S 

APUT 

ie22l 

2011 


ISZ 

CLTEMP 

10222 

5217 


JMP 

UCLOOP 

10223 

2014 


ISZ 

CT3 

10224 

5234 


JMP 

UIEXT 

1S225 

2015 


ISZ 

CT2 

10226 

5234 


JMP 

UIEXT 

10227 

2016 


ISZ 

CT1 

10230 

5234 


JMP 

UIEXT 

10231 

7240 


CLA CMA 


10232 

3006 


OCA 

ABOGET 

10233 

3007 


OCA 

AOACPT 

10234 

6031 

UIEXT, 

6031 


10233 

524 J 


JMP 

UIEXT2 

13236 

603« 


6034 


10237 

eoiT 


AND 

U177 

10240 

1021 


TAO 

U7775 

10241 

7650 


3NA CLA 


10242 

5245 


JMP 

UIEXT3 

10243 

6131 

UIEXT2, 

6131 


10244 

5260 


JMp 

UIEXT4 

10245 

1020 

UIEXT3, 

TAO 

U4707 

10246 

6132 


6132 


10247 

6135 


6135 


10250 

6130 


6130 


10251 

7240 


CLA cma 


10252 

6130 


6130 


10253 

6032 


6032 


10254 

3006 


DC A 

ABDGET 

10255 

3007 


OCA 

AOACPT 

10256 

4454 


JMS I 

U JMP 

10257 

7373 


RTERR 


10263 

6203 

UIExTa, 

CXF CDF 

0 

10261 

5662 


JMP I 

• ♦1 

10262 

6744 


INTEXT 



/NOPE. 

/IT SO, ARE WE NOW ACCEPTING DATA? 

/NOPE. 

/YEP, GET NUMBER OF CHANNELS TO DO, 

/SET UP OUR COUNTER, 

/GET. STARTING channel number. 

/SEND TO TO CONTROLLER, 

/TELL IT TO INCREMENT MULTIPLEXOR WHEN DONE. 

/PREFORM a-d instruction, 

/STORE IN USERS BUFFER, 

/ALL done? 

/NOPE, WAIT, 

/DONE, INCREMENT TOTAL NUMBER OF SAMPLES, 


/ALLOONE. STOP SAMPLING, 

/AND GO INTO "REJECT" MODE, 

/HAS HE TYPED A CONTROL C? 

/NO, 

/*C? 

/YES 1 B0H8 HIM, 

/CLOCK HAS NOT COME UP AGAIN, ALL IS WELL, 
/STOP CLOCK IMMEA0I4TATELY, 


/CLEAR all after partial enable, 
/cleat TTY flag, 

/free buffer and accept mode. 


/INTCRUPT EXIT, 

/4NO 00 WHATEVER GOO INTENDED, 


V 





















% 


/ 
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/BASIC,L«C 
56*6 

5697 i??63 0300 APUT, S 


56 9! 

ie?6« 

3a?3 

OCA I 

A R U T 1 

5699 

10265 

2022 

IS7 

ACDUNT 

57 00 

10266 

4 3?5 

JHS 

ABOP 

57? 1 

10267 

C0 23 

APUTI 

5 7 2? 

10270 

i; 2 3 

TaO 

APUT1 

5703 

1027! 

7-04 1 

CIA 

570a 

1 c 2 7 ? 

1824 

TAO 

APUT2 

5 7 ■?$ 

10273 

7640 

S 2 A Cla 

5 7 2 6 

102 7m 

5663 

JMP l 

APUT 


10275 

3 * T6 

OCA 

ABODET 

ST,VS 

10 2 7 6 

3 >0 7 

oca 

AD A CP T 

$709 

10277 

«»S4 

JMS I 

U J-P 

57 1? 

57 11 
57i? 

i ;•:'; 

756 7 

uudata 

5713 

12 301 

0003 AGET, 

0 


57 1 a 

JC302 

7 2 43 

Cla Cma 


57J5 

10303 

1022 

T S H 
• * u 

ACCLNT 

5716 

10304 

7 503 

S M A 

5717 

10305 

5312 

JMP 

.♦5 

5716 

10306 

. 7??? 

CLA 

5719 

10307 

4455 

JMS I 

UJMS 

5 7 ?2 

10310 

67 13 

B IDLE 

5721 

5722 

10111 

S3S2 

J HP 

AGE T*1 

5723 

10312 

3022 

OCA 

ACCUNT 

5724 

10313 

1424 

TAO I 

APUT2 

5725 

10 314 

3323 

DC A 

ATEMP 

5726 

10315 

6002 

I OF 


/this routine: puts a sample is the buffer 

/place in puffer, 

/INCREMENT COUNTER, 

/BOR UR POINTER, 

/GET INPUT POINTER, 

/ODES 17 match OUTPUT POINTED? 

/NOPE, ALL IS *ELl, 

/ F R t E B ; j «•' f i d , 

/A NO ACCENT, 

/GIVE ERROR, 

/A-D ERROR, 


/THIS GETS A DATA ITEM FROM PUFFER 

/decrement counter. 

/OR SHOULD wE? 

/7EP. STILL items left, 

/put to sleep 

/ANO CHECK AGAIN WHEN AWAKE, 

/SAVE COUNTER, 

/GET THE SAMPLE, 

/SAVE WHILE UPDATE TAKES PLACE, 


/ 


/BASIC.L«E 


5727 

18316 

4325 


5723 

10317 

0024 


5729 

10320 

6001 


5730 

10321 

1323 


5731 

5732 

10322 

5701 


5733 

10323 

0000 

ATEMP, 

5734 

5735 

5736 

5737 

18324 

0000 

ATEMP2 

5739 

10325 

0000 

ABOP # 

5739 

"1C326 

1725 


5743 

12327 

3324 


5741 

10350 

1724 


574? 

10331 

2325 


5743 

10332 

1025 


5744 

1C333 

7450 


5745 

U334 

1026 


5746 

12335 

1027 


5747 

10336 

3724 


5748 

5749 

5750 

5751 

10337 

5725 


5752 

10340 

0003 

UCLS, 

5753 

10341 

seoJ 


5754 

10342 

4430 


5755 

10343 

3000 


5756 

5757 

5758 

10344 

5740 


5759 

10345 

0300 

UCLC, 

5760 

10346 

6137 


5761 

10347 

4933 


5762 

10350 

0083 


5763 

5764 

5765 

5766 
5?67 

5768 

5769 

5770 

57 7 j 

5772 

5773 
577a 

10351 

57«5 


5775 

5776 

5777 

5778 

5779 




5780 

13352 

0030 

UUULLL, 

5781 

10353 

7200 



PAL6-V9 

JMS A8CP 

APUT2 

ION 

tad atemp 

JMP I AGET 

2 

0 . 


3 

TAD I * ABOP 
DCA ATEMP? 

TAD I ATEMP? 

X S Z ABOP 

TAD ADA 1 

SNA 

TAD ADA2 

TAO AO A3 

DC A I ATEMP2 

JMP I ABOP 


Q 

tad clksts 

JMS I UUSETF 
2 

JMP I UCLS 


z 

6137 

JMS I UUSETF 
0 

JMP I UCLC 


0 

CLA 


/ / PAGE 16 


/ABOP WILL M£SS YOU UP IF CALLED RE-ENTRENTLY, 


/SAVE POINTER NOW, 

/GET VALUE AND SKIP PAST POINTER #1. 
/TEST AGAINST UPPER, 

/CORRECT TO LOWER, 

/AND AOD IN UPPER, 

/AND THIN SAVE AWAY, 

/AND THEN EXIT, 


/GETS STATUS AFTER LAST CLOCK INTERUPT, 


/RETURN WHEN DONE, 


/READS IN AS A CLCA 
/GET COUNT REGISTER, 

/FIX IT UP, 

✓AND RETURN NOW. 



1 




.j 
* - > 

I 


- 


r 


! 

I 



| 
















/BASIC 

*L8E 




P AL 8*V9 

/ / PAGE 16-1 

57 A 2 

1035 4 

JP22 


DC. A 

#COUNT 


5733 

123S5 

3 ' ' fe 


DC A 

ABOGET 


578 4 

1335b 

3 00 > 


OCA 

ADACPT 


5725 

10357 

*■££ i 


ION 



5786 

17 36C 

6'2iS2 


CIF 

0 


5737 

1 3361 

5 7 52 


J HP I 

UUULLL 


ST 3 5 







57/59 







57V0 

iesb2 

2000 

OOAD. 

2 


• 

5 7 '> * 

1 2 3 b 3 

iv? 


TAD 

U7 76 0 ' 

/PLEMv OF DEL at 

S792 

1 ? 3 i 4 

3 "• ; 5 


CCA 

CSCREW 

/SAVE IN A COUNTER /.ORD 

57 93 

10 3 6 5 

65 32, 


*5 3 2 


/ST«RT CONVERSION, 

5794 

10 366 

6 “ - 

C’CAOLP» 

b'i34 


/wAIT UNTIL DONE, 

5 7 95 ' 

1C 3ft 7 

' 7410, 


$XP 


/IF NOT DONE, WAIT SOME 

579b 

U37J 

5 3 73 


! M P 

.♦3 

/JF DONE, READ IT IN, 

5797 

1437 1 

23 7 5 


132 

OSCREw 


5798 

1 0.37 2 

5 3*6 . 


JMP 

0 0 A D L P 

/WAIT UNTIL DONE OR TOO 

5 7 79 

1-3 373 

6 3 j 3 


653 3 


/then read IN The C0 N v E i 

5*00 

10374 

5 7*2 


JMP I 

DO AC 

/AND RETURN, 

5531 







5<?2 

12375 

2020 

0 5 C R £ W , 

0 




5-833 

5504 

S8S5 

582b 

58 2 7 

5808 

55C9 

5310 

5311 
5812 
5b 15 
5814 
5315 
58‘b 
5817 
5818' 
5319 

5820 

5821 
5522 
5823 
5324 
5825 
552b 
5827 
532.8 
5829 
5230 
5831 
5812 

5833 

5834 

5835 

5836 


6403 


PAGE 


I i 

m 


/BASIC 

.L8E 

\ 



PA 

5837 






5838 






5839 






5840 






5841 






5842 






5843 





% 

5844 

10400 

4057 

USETR, 

JMS 

UGETWD 

5845 

10401 

4431 


JM3 I 

UMEVAL 

5846 

10402 

4432 


JMS I 

UPFIX 

5847 

10403 

0333 


AND 

U7 

5848 

10404 

7106 


CLL RTL 


5849 

10405 

7006 


RTL 


5850 

10406 

7036 


»tl 


5851 

10407 

1034 


TAO 

U5010 

5852 

10410 

5216 


JMP 

USETM 

5853 






5654 

10411 

4057 

U3ETC, 

JMS 

UGETwO 

5855 

10412 

4431 


JMS I 

UMEVAL 

5856 

10413 

4432 


JMS I 

UPFIX 

5857 

10414 

0035 


AND 

U7767 

5858 

10415 

1036 


TAO 

U10 

5859 






5860 

10616 

3053 

USETM, 

OCA 

UTEMP 

5861 

10417 

7240 


CLA CMA 


5862 

10420 

6130 


6130 


5863 

10421 

7200 


CLA 


5864 

104 22 

4431 


JMS I 

UMEVAL 

5865 

10423 

4432 


JMS I 

UPFJX 

5866 

10424 

7041 


CIA 


5867 

10425 

6002 


IOF 


5865 

1042b 

6133 


6133 


5869 

10427 

7200 


CLA 


5870 

10430 

3004 


OCA 

TIM1 

587* 

10431 

3005 


OCA 

TI M 2 

587 J 

10632 

1053 


TAO 

UTEMP 

5873 

13433 

6132 


6132 


5874 

10434 

6001 


ION 


5875 

13435 

7203 


CLA 


5876 

10436 

5456 


JMP I 

UOEVCON 

5877 






5876 






5679 






5860 

10437 

7240 

UWAJT, 

CLA CMA 


5681 






5882 

10440 

1005 

UWAITC, 

TAD 

TIM2 

5883 

10441 

3053 


DC A 

UTEMP 

5684 

10442 

4455 


JMS I 

UJMS 

5885 

10443 

6713 


BIOlE 


5686 

1 0-a 4 4 

1053 


TAO 

UTEMP 

586 T 

13445 

7341 


CIA 


•5658 

10446 

1005 


tad 

TI M2 

5859 

13447 

7653 


SNA CLA 


5890 

10450 

5242 


JMP 

UWA ITC*2 

5891 

10451 

44 54 

RANDAE, 

JMS I 

UJMP 


PAL8*V9 
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/30P PAST CHAR, 

/THIS ROUTINE SETS UP CLOCK TO A GIVEN TIME, 
/FI* UP AC, 

/JUST GET SIGNIFICANT BITS (0*7), 

/NOW MOVE TO TIME PORTION (3*5) 


/SET OTHER CORRECT BITS NOW, 


/90P PAST BAD POINTER. 

/THIS ROUTINE LOADS CLOCK WITH USE»3 COMMAND REGISTER, 


/make sure to turn interupts on. 


/SAVE ENABLE REGISTER FOR A SECONO. 
/CLEAR CLOCK NOW, 

/SO WE CAN LOAD IN CORRECT STUFF, 
/EVALUATE HIS TIME SETTING, 


/make sure interupts are off. 


/clear cut THE TIM NOW. 

/RECALL oesired enable REGISTER 
/SEND IT OUT, 

/TURN ON INTERUPTS NOW, 

/and EXIT NOW, 


/WAITS FOR AN INTERUPT, SET TO LOOK LIKE CLOCK OIO IT, 

/GET LOw ORDER wORO. 

/SAVE for Awhile. 

/PUT to SLEEP, 

/WAS IT CLOCK (OR OTHER IF CLUCK FUDGED7) 

/CChbaRE AGAINST PRESENT CLOCK, 

/NOT CORRECT, WAIT SOME MORE, 


& 








t> { 3 /. 
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/BASIC,LAE 


5892 

10452 

7175 


DEVCOM 


5893 

S89ii 

5695 

10453 

1006 

UACCPT, 

TAD 

ABDGET 

sa'H 

5 59 7 

10*54 

10453 

r 79 e 
7281 


SZA SMA 
CLA I AC 

CLA 

5F98 

55 9 9 

1 ?4$6 

x 

URSJT, 

DC A 

AOACPT 

S' 1 ?? 

10957 

5251 


JMP 

RASiOAE 

5901 

5’??2 






590 3 

5 925 

5 9 z 6 

592? 

5 90 8 
5909 . 

1046? 

13461 

123? 

7652 

UREAL 1 

Tad 

SNA CLA 

ADACPT 

5910 

10462 



J*P 

.♦3 

5911 

5912 

12463 

10464 

4-54 

246? 


J M S I 

SKIPIT 

UJMP 

595 3 

59id 

10965 

10466 

Ui 5 - 5 
7862 


J'*S I 

getary 

UJ^S 

5915 

10467 

4437 


JHS I 

UAC1 

5916 

10470 

3023 


DC A 

APUT1 

59)7 

1347 1 

1023 


TAD 

APUT1 

5918 

10472 

3024 


DC A 

APUT2 

5919 

5923 

10473 

10474 

4440 

7041 


JMS I 
CIA 

UAC2 

5921 

10475 

3025 


OCA 

AD A 1 

5922 

5923 

10476 

10477 

9440 

7031 


JMS I 

I A C 

UAC2 

5924 

10530 

3027 


OCA 

AO A3 

5925 

5926 

10531 

10532 

1327 

7041 


TAD 

CIA 

ADA3 

5927 

10503 

1023 


TAO 

APUT1 

5928 

105C4 

3326 


OCA 

A0A2 

5929 

1 0535 

4057 


JMS 

UGETWD 

5930 

10538 

4431 


JMS I 

umeval 

5931 

10537 

4432 


JMS I 

UPFIX 

5932 

10510 

0047 


AND 

U17 

5933 

10511 

3012 


DC A 

ADCX 

5934 

10512 

4431 


JMS I 

UMEVAL 

5935 

5936 

10513 

10514 

4432 

7440 


JMS I 

SZA 

UPFIX 

5937 

10515 

1050 


TAD 

U7777 

5938 

5939 

10516 

10517 

C39 7 

7042 


AND 

C M A 

Ui 7 

5940 

10520 

3013 


DC A 

ADCUNT 

5941 

10521 

-4 411 

- 

JMS I 

UMEVAL 

59-2 

10522 

4432 


JMS I 

UPFIX 

5943 

10523 

7161 


CLL CML 

CIA 

5944 

5945 

10524 

10525 

3014 

7034 


DC A 

ral 

CT3 

5946 

10526 • 

4440 


JMS I 

UAC2 


/IS BUFFER 455IGNE0? 

/r£P, w£ CAN ACCEPT now. 

/OR REJECT. 

/ANC THEN EXIT, 


/REA*, time decoding function. 


/are *E ACCEPTING NOW? 


/PICK UP BUFFER items, 

/GET w£ FIRST WORD OF ARRAY. 
/SAVE AWAY NOW, 

/ALSO set UP OUTPUT pointer, 

/get last word of array, 

/save IN UPPER LIMIT TESTER. 
/GET AGAIN, 

/AOD OnE. 

/AND SAVE AWAY IN BOPPER WORD, 
/FINALLY GET THE RESET WORD. 


/AND SAVE AWAY FOR WRAP AROUND CONDITION, 
/BYPASS REAL TIME STATEMENT. 

/EVALUATE AN EXPRESSION 
/FIX THE AC NOW, 

/JUST GET CHANNEL NUMBER, 

/SAVE AWAY, 

/evaluate another item, 

/FIX IT UP. 

/IF ZERO, 00 NOT SUBTRACT ONE, • 

/SUBTRACT ONE TO BRING INTO 0-17 RANGE, 
/MAKE INTO 0-17, 

/NOW NEGATE AND SUBTRACT ONE. 

/AND SAVE AWAY CORRECT ISZ COUNTER. 

/NOW GET -NUM8ER OF SAMPLES (CLOCK TICKS) 


/SET UP LOm ORDER WORD OF COUNTER. 
/AND PRESERVE CARRY. 






t 


/BASIC 

,L6E 




PA18-V9 
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5947 

10527 

7161 

CLL 

CML 

CIA 

• • ' ' : •• .if 

5946 

10530 

3315 

DC A 


CT2 

• 

5949 

10531 

7004 

RAL 



1 

5950 

10532 

4437 

JMS 

I 

U AC 1 

' } 

5951 

10533 

7161 

CLL 

CML 

CIA 

■ : • • t 

5952 

10534 

3016 

OCA 


CT1 

* 

5953 

10535 

3022 

DC A 


ACOUNT 

/CLEAR PRESENT BUFFER COUNTER, 

595« 

10536 

7201 

CLA 

I AC 

. 


5955 

10537 

3006 

OCA 


ABDGET 

/SET UP BUFFER, 

5956 

10540 

5456 

JMP 

X 

UDEVCON 

f 


5957 

5958 

5959 

5960 ’ 


5961 

10541 

0000 

UTIM, 

0 


5962 

10542 

1004 


TAO 

TIM1 

5963 

10543 

3346 


DC A 

.♦3 

5964 

10544 

1005 


TAD 

TIM2 

5965 

5966 

10545 

10546 

4430 

0000 


JMS I 

0 

UUSETF 

5967 

5968 

5969 

1054? 

5741 


JMP I 

UTIM 

5970 

10550 

0000 

USETF, 

0 


597J 

10551 

3053 


DC A 

UTEMP 

5972 

5973 

10552 

10553 

4455 

3762 


JMS I 
BEGFIX 

U JMS 

597a 

10554 

1750 


TAD I 

USETF 

5975 

10555 

6201 


CDF 

0 

5976 

10556 

3443 


DCA I 

PPAC2 - 

5977 

10557 

1053 


TAD 

UTEMP 

5978 

10560 

3444 


OCA I 

PPAC3 - 

5PT9 

10561 

6211 


CDF 

10 

59 80 

10562 

4455 


JMS I 

U JMS 

5981 

10563 

4600 


ANORM 

_ — 

5982 

10564 

2350 


ISZ 

USETF 

5983 

5984 

10565 

5750 


JMP I 

USETF 


5985 

5986 

5987 

5988 

5989 

5990 

5991 

5992 

5993 

5994 

5995 

5996 

5997 

5998 

5999 

6000 


0600 


PAGE 


/RETURNS CLOCK TICK, 


m 


/SAVE LOW ORDER WORO OF FaC. v WfU(Ca 

/GET MIOOLE word, * 

/PLACE IN FAC. 

/GET LOw WORD, 

/PLACE IN FAC. 


C& UOyeiiT 


P" I £ i- 2) d 

fc'V F'Vfc'O P0/«r 


gy St- Fv* e 

<x*e,ert?L-V>. 


/BYPASS VALUE 
/RETURN NOW, 









I 













<» 
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/BASIC.L«E 
*002 

6003 

6004 

6 003 
6026 
r* 0 r 

60Cfi 


6 ? > 9 

126 23 

0232 UA0C3, 

3 



6U? 

106 3 1 

?? 12 

SPA 

CLA 


6311 

1 26 r 2 

5??2 

JMp 

UADCN 

6 * 2 

13633 

1326 

TAD 


A3DGET 

6C1 3 

10624 

t«5b 

SNA 



6 3U 

1 2 6 2 5 


J * P 


UASIO 

6 215 

ic6,> 

-7710 

SPA 

CLA 


6316 

i Zb’.y-f 

5215 

J»P 


uaOCMY 

6 2 1 7 

10613 

« i ? 

tad 


A 3 A C P T 


/Twts RETURNS A value from The a-D, 
ZeUFfEREO OR DIRECT? 

/direct, 

/CHECK TO SEE WHETHER 3UFFTR ASSGXNED 

/NO BUFFER ASSIGN’D, 

/is n'j fees? active? 

/•NO, GET COUNT, 

/ACTIVE, A ft £ HE ACCEPTING DATA? 


/BASIC,USE 


PAL8-V9 


6218 

10611 

?653 


SNA ClA 


6214 

12612 

5215 


JMP 

UAOCMY 

6?22 






6021 

10813 

4653 

UAOCIN, 

JMS I 

UPAGET 

6 022 

10814 

5231 


JMP 

UINAC 

6023 






6224 

10815 

1022 

uaocmy, 

TAO 

ACCUNT 

6225 

10616 

? 6 43 


3ZA ClA 


632b 

1081? 

5213 


JMP 

UAOCIN 

6327 

10620 

4454 

U A 8 A 0, 

JMS 1 

U JMP / 

6323 

10621 

7460 


UUNCAD 


6029 





1 

6033 






6331 

10622 

4432 

UADCN, 

J«S I 

UPFIX 

6332 

13623 

2347 


AND 

U l 7 - 

6033 

1 38? 4 

6332 


IGF 


6034 

13625 

6531 


6531 


6035 

13626 

6536 


6536 


6236 

10627 

4451 


JMS I 

UDOAD 

6037 

13830 

6001 


ICN' 


6038 






‘ 6339 

10631 

3363 

UINAC, 

OCA 

AUTEMP 

6340 

10632 

1363 


TAO 

AUTEMP 

6341 

10633 

75 i 3 


SPA 


6042 

10634 

7041 


CIA 


6043 

10635 

4430 


JMS I 

UUSETF 

6344 

10636 

8000 


0 r**' ' 


63fc5 

10637 

1083 


TAO 

AUTEMP 

6046 

10643 

6201 


COF 

0 


6047 

6046 

6049 

605C 

6051 

6052 
6.053 
6054 
6255 

6356 

6357 
6258 
6359 
6263 
6261 
6262 

6263 

6264 

6265 

6266 
6C6 7 
6268 

6369 

6370 

6271 

6272 


1264! 

12642 

10643 

12644 

.13645 

12646 

12647 
12652 
10651 
1C652 


7ua 

7333 

3446 

1445 

1264 

7503 

3445 

7223 

6211 

5602 


SPA 

CLA 

OCA 

TAO 

TAO 

SMA 

OCA 

CLA 

CDF 

JMP 


CLA 

CLl'CML *AR 
I , PPACS 
X PPACE 

AOCCOR<J- 

I PPACE 

10 

X UADCB 


10653 0301 UPAGET, AGET 


1 0654 

10655 

10656 

10657 
13660 

0000 

6201 
14 42 
6211 
5654 

UUAC1, 

0 

CDF 

TAO I 
COF 

JMP I 

0 

PP AC 1 
10 

UUAC1 

10681 

10662 

0000 

6201 

UUAC2, 

0 

COF 

0 
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/NO, 

CHECK 

COUNT IN 

BUFFER 

/GET 

VALUE 

FROM A„0 

buffer 

/AND 

FIX IT 

UP. 


/GET 

BUFFER 

COUNTER 

NOW, 


/ » 3? 

/NOPE, WE CAN RETURN SOME DATA, 

/NO A-0 DATA IN BUFFER. 

A* 


/NON*PEAL TINE, 

/JUST GET CHANNEL NUMBER. 

/*E CANNOT BE INTERUPTTEO HERE, 


/PREFORM THE CONVERSION NOW, 
/RESTORE INTERUPT5, 

/SAVE FOR A SECOND, 

/PLACE A8S0LUTE VALUE IN FAC, 


/NOW SET SIGN OF FAC, 

N ° C00LNSSS L£FT * Mmn C0MHENTS 

/SET LEFT MOST BIT ON TO INDICATE NEGATIVE, 

/GET EXPONENT NOW, 

/BRING INTO CORRECT RANGE NOW. 

/IF TOO FAR, 

/DON'T CORRECT, 

/RESET COF. 

/RETURN TO FIELD ONE 












PAL6-V9 


/ / 


PAGE 17-1 


/BASIC.L8t 


6373 

10665 

144 3 

TAD 

I 

PP A C 2 

637 4 

1266 4 

6211 

COP 


1C 

6?7S 

13665 

5681 

JMP 

I 

UUAC2 

6376 
62 7 7 
6078 

13666 

1 0667 

0 030 
6231 

UUAC3, 0 ' 
CDF 


0 

6279 

1267,1 

1 u44 

TAO 

I 

PP AC 3 

6280 

1267 1 

621 i 

COP 


1C 

6281 

12672 

5666 

JMP 

I 

UUAC3- 

6?8? 

3 

6254 
6285 
60 8 6 

10673 
136 > 4 

0 v 23 
4465 

uu*£val »? 

I 

UJM$ 

6087 

13675 

1 « 1 5 

H£VA L 


fc?&B 

1067fe 

5673 

JMP 

I 

I’lMEVAl 

6289 

6? 9 J 
6291 

12677 

107 00 

0020 

4455 

UUPFT*. 0 

J“S 

I 

UJHS 

6092 

6395 

6094 

13 701 
10722 
10733 

4744 - 

7200 

4 4 41 

FIX 
Cl, A 
JHS 

I 

U*C3 

6095 

13734 

5677 

J M p 

X 

UUPFIX 

6396 

6097 

6090 

10705 

4454 

UUDEVC, Jm$ 

I 

UJMP 

6099 

10736 

7176 

DEvCCN 



6130 

<>131 

6122 

6123 

6134 

6125 

6136 

6137 


6138 

10707 

0032 

UUJMS, 

0 


6139 

10713 

6202 


CIF. 

3 

6110 

10711 

1737 


TAD I 

UUJMS 

6111 

13712 

3314 


DC A 

.♦2 

6112 

10713 

4721 


JHS I 

UUclJMS 

6113 

10714 

eeea 


0 


6114 

10715 

7413 


SKP 


6115 

10716 

2337 


ISZ 

UUJMS 

6116 

13717 

2307 


ISZ 

UUJMS 

6117 

10720 

S707 


JMP I 

UUJMS 

6118 






6119 






6120 

ie72i 

7446 

UUUJMS, 

LllJPS 



6121 
6122 
6123 
6 1 2u 

6125 

6126 
6127 


/IM CASE OF SKIPPING RETURN 


/BASIC 

6128 

6129 

.L8E 




6130 

13722 

0200 

UUJMP, 

0 

6131 

13723 

6202 


C IF 

6132 

13724 

1722 


TAO I 

6133 

13725 

3327 


OCA 

6134 

13726 

47 30 


JMS I 

6135 

6136 

10727 

3203 


0 

6137 

6138 

6139 

6140 

6141 

6142 

6143 
6164 

10730 

7457 

UUUJMP, 

ILLJ M P 


PAU8-V9 
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6145 

6146 

6147 

6148 

6149 

6150 


6165 

6166 

6167 

6168 
6169 


3 

UUJMP 

.♦2 

UUUJMP 


M C\^y <j & Yo (A cJri l r&IiA 


6151 

13731 

1335 

UPCOMOO.TAO 

UUF! 

6152 

13732 

1336 

TAO 

UPJ' 

6153 

10733 

3334 

OCA 

.♦1 

6154 

10714 

7402 

HLT 


6155 

10735 

1740 

UUFuOGE,-6240 


6156 

10736 

5737 

UPJMP, JMP I 

.♦1 

6157 

10737 

e460 

ureal 


6158 

10740 

0400 

USETR 


6159 

10741 

0411 

USETC 


6160 

10762 

0442 

UWAJTC 


6161 

10743 

0437 

UwAIT 


6162 

10744 

0000 

0000 

■. 

6163 

13745 

0 453 

UACCPT 


6164 

10746 

0456 

UREJT 



/NOT USED NOW, 


6 l 7 O 

13747 

0030 

UPFUN, 

0 


6171 

10753 

1356 


TAO * 

UFFUD 

6 1 72 

13751 

1357 


TAO 

UFJmp 

6173 

13752 

3!53 


OCA 

.♦l 

61 74 

10753 

7402 


MLT 


6175 

12754 

6202 


C IF 

0 

6176 

10755 

5747 


JMP I 

UPFUN 

6177 


7 7 57 




6178 

13756 

UFFuD, 

-21 

'* 

617* 

13757 

4760 

UFJmP, 

JMS I 

.♦1 

6182 

10763 

0770 


ZZAOC 


6181 

12781 

ceoa 


0000 


6182 

10762 

0541 


.UTI« 
















/BASIC,L6E 


6113 

18763 

8x»es 

0800 

M €« 

13764 

0028 

0322 

6! 85 

10/65 

S3 4 3 

UCL3 

8186 

13768 

C34j‘ 

UCLC 

6167 

6 ? 8 8 
618) 

1074? 

0 77 5 

ZX *03 

6193 

1P770 

0C20 

ZZADCr , 2 - : \ 

619J 

1C771 

7242 

CLA 

6192 

1277? 

4 774 

J J 3 -I 

6193 

10 7 7 3 

.577.: 

JK.P .1 

61 94 
6195 

1 277* 

' J*C3 

UAOCS 

6 1 9fe 

17 7? 

C8C3 

2Z*CB, 0 

6197 

18776 

5774 

JMS I 

t> 1 9 B 
6199 

107 77 

5775 

JHP I 


6?:? 

6 2 £ 1 

6283 

%c?a 

6 2? 5 
6506 
6527 
6538 
6229 

6518 
6211 
6512 
6213 
621« 

6215 

6216 

6217 

6218 

6519 1233 PAGE 

6220 

6221 

6222 

6223 

6224 

6225 

6226 

6227 

6228 
6229 
6238 

6231 

6232 

6233 
623a 

6235 

6236 

6237 


PAL8-V9 / / PAGE 1T-3 



t 


/BASIC 

,18E 


PALS 

6238 

6239 
6242 




624 t 




6242 

6243 

6244 



. 

6245 

6246 

6247 

6248 
6299 
6252 
6251 


8303 

IFZE&O MACHINE* 

LIMIT»TEN*3 

6252 

6253 
625a 

6255 

6256 

6257 

6258 

6259 
6268 
6261 
6262 

6263 

6264 

6265 

6266 
6267 


- 

> 

XFNZRO MACHINE* 

LIMIT, 0 

» 

6268 

6269 

6272 


7822 

• 7022 

6271 

6272 

17322 

0300 

PEPMSVM.0 

6273 

17323 

4230 

4XPLUS, 4 2801 TEXT ••• 

6274 

17324 

5388 


6275 

17325 

4201 

XXHINUS,4201lTEXT.*•' 

6276 

17826 

5538 


6277 

17327 

4302 

XX3TAP, 4302ITEXT *•* 

6278 

1 7333 

5203 


6279 

17331 

4333 

XXSLASH,4J03ITEXT •/• 

6288 

17332 

5733 


6281 

17333 

4434 

XXUPARR,4404|TEXT *-* 

6282 

17334 

3638 


6283 

17C3S 

4113 

XXLE, 4110J TEXT 

6284 

17336 

7475 


6285 

17337 

0383 

- 

62 5 b 

17243 

4111 

XXGE, 4Hlf TEXT 

6287 

17341 

76*5 


6288 

1734.2 

00C0 


6289 

17343 

4112 

XXNE, 41UITEXT •<>* 

629J 

1 7344 

7476 


629\ 

1 7345 

0003 


6292 

17346 

411 1 

XxE5» 41111TEXT •*»• 
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/BASIC.L8E 


PAL6-V9 


6293 

17047 

7576 


6294 

17053 

0003 


6295 

17CM 

4 110 

xxEl, 


17052 

75 7 4 


6297 

17053 

3330 


629S 

1 7 ,j 5 4 

41C5 

xxf 2# 

6?9.9 

17055 

7530 


6I0D 

1705fc 

4 10b 

X XL T . 

6 301. 

17257 

7 4 3-0 


6302 

173 S3 

«127 

X X G T , 

6 3~1 

17361 

7630 


6 i ~ 4 

17342 

L015 

XXwC^A 

6 3-05 ' 

1 ? ' ^ JS 

5*00 


6.306 

*73*4 

401b 

XX3E*I# 

6327 

P?65 

*333 


6308 

17366 

-01 7 

XXCLCSE 

630*5 

17367 

5103 


6310 

1707 0 

*017 

XXRfiRAK 

6 311 

17 3 7 1 

3533 


63 5 2 

17372 

4321 

XXTO, 

6313 

17073 

4324 


63U 

17074 

17 40 


6315 

1 7075 

003 2 


6316 

17376 

4022 

XXSTEP, 

6317 

17277 

4323 


6318 

i 7 1 C 3 

2405 


6319 

17101 

2040 


6320 

17102 

0200 


6321 

17103 

4023 

XXCPEN, 

6322 

17135 

5?03 


6323 

17105 

4223 

XXLBRAX 

6324 

17108 

3330 


6325 

17107 

4024 

xxfn, 

6326 

17110 

0616 


6327 

mu 

0220 


6328 

1*112 

4325 

xxcos, 

6329 

17113 

0317 


6333 

17114 

2300 


6331 

17115 

4226 

XXTAN, 

6332 

17116 

2431 


6333 

17117 

1603 


6334 

17120 

4027 

XXATN. 

6335 

17121 

0124 


6336 

17122 

160C 


6337 

17123 

4332 

XXLOG# 

6338 

17124 

1417 


6339 

17125 

C7B2 


6340 

17126 

4031 

XXEXP# 

6341 

17127 

0533 


6342 

17130 . 

2022 


6343 

1*131 

4332 

XX53R» 

6344 

1*132 

2321 


6345 

1*133 

2230 


6346 

1*134 

4033 

XXABS# 

6.34 7 

17135 

0102 



/BASIC.L8E 


6346 

17136 

2300 


6349 

17137 

4034 

X X SGN, 

6350 

17140 

2307 


6351 

m«i 

1600 


6352 

17142 

4035 

X XI NT| 

6353 

17143 

1116 


6354 

17144 

2400 


6355 

17145 

4036 

XXRNO, 

6356 

17146 

2216 


6357 

17147 

0400 


6356 

17150 

4037 

XXSIN, 

6359 

17151 

2311 


6360 

17152 

1603 


6361 

17153 

4040 

XXPUT, 

6362 

17154 

2025 


6363 

17155 

2400 


6364 

17156 

4041 

XXLIST, 

6365 

17157 

1411 


6366 

17163 

2324 


6367 

17161 

0000 


6368 

17162 

404} 

XXLIS# 

6369 

17163 

1411 


6370 

17164 

2300 


6371 

17165 

4042 

x xR un * 

6372 

17166 

2225 


6373 

17167 

1600 


6374 

17170 

4043 

XXSCR, 

6375 

17171 

2303 


6376 

17172 

2200 


6377 

17173 

4044 

XXGET t 

6378 

17174 

0705 


6379 

17175 

2430 


6380 

1717b 

4045 

X X A DC # 

6381 

17177 

0104 


6382 

17200 

0303 


6383 

17201 

4046 

XXTTY# 

6384 

17202 

2423 


6385 

17203 

2400 


6386 

17204 

4047 

X X TI ME # 

6387 

17205 

2411 


6388 

17206 

15C0 


6389 

17207 

4350 

xxtab, 

6390 

17210 

2401 


6391 

17211 

0200 


6392 

17212 

4051 

XXUUF, 

6393 

17213 

2525 


6394 

17214 

0630 


6395 

17215 

4052 

XXCLS, 

6396 

17216 

0314 


6397 

17217 

2303 


6398 

17220 

4053 

xxcic, 

6399 

17221 

031« 

* 

6400 

17222 

0300 


6401 

17223 

4C54 

XXADB, 

6402 

17224 

0ie4 



anaiTExT **«* 

«105fTEXT 'o' 
4ic6/text '<» 
4107JTEXT '>' 

•> :*!5f TExT *,’• • 
*315/T£XT 
#4217 ITE X T '}' 

» 4217 # TEXT ']' 

4221f TEXT ' TO ' 

40221 TEXT * STEP ' 

42231 TEXT *(' 
i 42231 TEXT 't' 

4024 I TEXT *FN* 

4225? TEXT *COS* 

4226 I TEXT 'TAN* 

4027|TEXT *ATN * 

40301 TEXT *LOG* 

40317TEXT *EXP* 

40321TEXT *SQR * 

40331 TEXT *ABS* 

PAL8-V9 

4034ITEXT *SGN* 

40351 TEXT *1NT* 

40361 TEXT *RN0 * 
4037ITEXT *SIN* 
4040ITEXT 'PUT* 
4041ITEXT 'LIST* 

4041 1TEXT *LIS * 

40421 TEXT *RUN* 

40431 TEXT 'SCR* 

4044 f TEXT *GET * 

4045ITEXT *AOC * 

4046 I TEXT *TST * 

4047 7 TEXT *TlMf 

4050ITEXT *TAfl' 

405UTEXT *UUF* 
4052ITE.XT * CL5 ' 

40531 TEXT 'ClC' 

4054 7 TEXT * AOB * 


















/B*5IC.18E 


6 4 03 

17?>5 

3203 


ft*,'4 

1 7226 

6030 

XXCRlF, 60627TEXT 

6435 

17? 2 7 

37 00 


M06 

t7?3C'. 

60 03 

XYBSLSm,6002J T£yT 

64«7 

17? 31 

3403 


6*.c3 

1 7 ? 

feCSl 

XXEND, 60211 TEXT 

6 4 C9 

1 ? ;• 3 3 

3516 


6 a 13 

1 r: 

3400 


*41 i 

1 7 

6 202 

XXFGR, 6032;TEYT 


1 7 2 Z 6 

Z ? I ? 


6413 

1 7 237 

2240 



1 72 4 0 

2 C : jl 


6** i 5 

1.7?- S 

6 2 3.5 

XXGGSUB,6003} TEXT 

6a 14 

1 7 ? 4 ? 

37 1 ? 


<4 4 i 7 

17?4S 

2335 


fv 0 i 5 

1724 4 

3240 


4,4 1 c 

1 7?45 

0?£C 


64c? 

1 7 ? 4 6 

. 6 ? 0 •» 

XXDOTC, 6004 # T£ XT 

64?1 

17?.;? 

27 i 7 


4622 

1725? 

4 024 


6*23 

J7?5i 

1743 


6424 

17252 

3030 


6425 

17253 

602* 

XXTHEN, 62041 TEXT 

6426 

17254 

4324 


6427 

17255 

1325 


6425 

17256 

1640 


6429 

1 ? 2 5 7 

3200 


6 4 33 

17263 

6205 

XXlF, 63051 TEXT 

6431 

17261 

1106 


6432 

17 26? 

4 300 


6433 

17263 

6036 

XXINPUT,6006;TEXT 

6434 

17?64 

1 116 


6435 

17265 

2025 


6 4 36 

1726 b 

24*i0 


6437 

17267 

0230 

* 

6436 

17273 

6037 

XXLET, 6007 7 TEX T 

6439 

17271 

1435 


6440 

17272 

2440 


6441 

17273 

2000 


644? 

17274 

6010 

XXNEXT, 6010ITEXT 

6443 

17275 

1605 


6444 

17276 

3024 


6445 

1 7277 

4003 


6446 

17308 

6311 

XXPRINT,6011ITEXT 

6447 

17331 

2022 


6446 

1733? 

1116 


6449 

17303 

2440 


6453 

17334 

0000 


6451 

17 305 

6212 

XXRETRN,60I2»TEXT 

645? . 

17336 

2203 


.6453 

i 7 3*0 7 

2423 - 

i 

6454 

17313 

2216 


6455 

17311 

eoea 


6456 

17312 

6013 

XXSTOP, 6013/TEXT 

6457 

17313 

2324 



/BASIC 

,L8E 



6458 

17314 

1720 


6459 

17315 

0000 


6460 

17316 

6014 

XXDIM, 6014ITEXT 

6461 

17317 

0411 


6462 

17323 

1540 


6463 

17321 

0000 


6464 

17322 

6015 

XXRSTCRi6015/TEXT 

6465 

1 7323 

2205 


6466 

17324 

2324 


6467 

17325 

1722 


6466 

17326 

0530 


6469 

17327 

6016 

XXRCM, 6016JTEXT 

6470 

17333 

2235 


6471 

17331 

1540 


6472 

17332 

0000 


6473 

17333 

6017 

XXOEF, 60i 71 TEXT 

6474 

17334 

0405 


6-75 

17335 

0640 


6476 

17336 

0383 


6477 

17337 

6023 

XXREAO, 6020}TEXT 

6478 

17340 

2205 


6479 

17341 

0104 


6460 

17342 

4000 


6461 

17343 

6821 

XXDATA, 6021ITEXT 

646? 

17344 

0401 


6463 

17345 

2401 


6484 

17346 

4003 


6465 




6486 

17347 

6024 

XXTTYJ, 6024ITEXT 

6467 

17350 

2424 


6488 

17351 

3143 


6469 

17352 

1116 


6490 

17353 

0003 


6491 

17354 

6025 

XXTTYO, 68251 TEXT 

6492 

17355 

2424 


6493 

17356 

3140 


6494 

17357 

1725 


6495 

17360 

2400 


649*, 

17361 

6026 

XXLPT, 6326}TEXT 

6497 

17362 

1423 


6498 

17363 

2403 


6499 

17364 

6027 

XXPTP, 6027}TEXT 

6533 

17365 

2 024 


6501 

17366 

2030 


6502 

17 367 

6033 

XXPTR, 6830f TEXT 

6533 

1 7370 

2024 


650a 

17371 

2200 


6535 



• 

6526 

1 7 37 2 

6332 

XXRUB, 6032}TEXT 

6537 

1 7 3 T 3 

2225 


6536 

1 7374. 

0217 


6509 . 

17375 

2524 


6510 

17376 

2303 


6511 

1 7377 

6033 

XXNRUB, 6033}TEXT 

6512 

17400 

1617 
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* 0 

'END' 

♦FC* * 

'GOSUB * 

'GO TO # 

* then * 

'IF * 

'INPUT ' 

'LET ' 

'NEXT ' 

'PRINT ' 

'RETURN' 

'STOP' 

e 
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'OIM • 

'RESTORE' 

•REM * 

'OEF ' 

'READ ' 

'OATA * 

'TTY IN' 

'TTY OUT* 

'LPT' 

'PTP * 

'PTR ' 

/6031 HAS BEEN REMOVED, 

'RUBOUTS' 

'NO RUBOUTS' 
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6513 

17001 

0?22 




ASIA 

17*02 

2532 




6515 

1700 J 

1725 




6S»b 

17*, * 

2023 




6517 

i 7*35 

0220 




6M8 

17 4,06 

6? SO 

**CLE** 

,60301 TEXT 

'Clfc AO' 

6S1* 

t ? 4 2 7 

0 »1 o 




6520 

17*13 

05 31 . 




6521 

i *oj i 

2230 




6522 

17 0 1? 

6 0 35 

XXDEi. AV 

,6035/TEXT 

•DELAY' 

6523 

I 7 - r 3 





65?o 

i' o s . 

1001 




6^25 

17*15 

3130 • 




652b 

17016 

6 3 36 

XXLSt, 

6?3b|TE XT 

"USE * 

6527 

t 7 4 1 7 

• 2 : 2 3 




6528 

17 0 22 

25*2 




6529 

l7o2i 

00,12 




653? 

1 702? 

6 0 3 7- 

xxPtCT, 

6037/TEXT 

*»lct • 

6531 

1 7 023 

2210 




6532 

17*2o 

1720 




6533 

S?o?5 

o 0 c s 




6530 

1 70 26 

60 4 2 

xx»eal, 

6340/TEXT 

'REAL TIME • 

6535 

17427 

2205 




6536 

17035 

3110 




6537 

17031 

0020 




6538 

1 7032 

1 115 




6539 

17033 

0502 




6500 

17030 

0303 




6501 

17435 

6001 

xxsetr, 

6001 /TEXT 

•SET RATE * 

6502 

17036 

2325 




650J 

I7a37 

2000 




6500 

poo? 

2221 




6505 

17001 

2005 




6506 

1 7 0*2 

0003 




6507 

17003 

6002 

XXSETC, 

6002/TEXT 

'SET CLOCK ' 

6508 

17000 

23S5 




6509 

1 7005 

2003 




6550 

1 70*6 

0310 




6551 

17007 

1703 




6552 

17050 

1300 




6553 

17051 

0203 




6550 

17052 

6003 

XXWAJTC, 

,6003/TEXT 

' W AIT C ' 

6555 

1 7053 

2701 




6556 

1 7o5o 

1120 




6557 

17055 

0303 




6558 

17056 

6040 

Y Y W A I T » 

6000/TEXT 

•WAIT' 

6559 

17057 

2701 




6560 

17060 

1120 




6561 

i70b: 

3 323- 




6562 

17062 

6 2.4 3 

XXUCOM, 

6005? TEXT 

•UCOM *• 

6563 

17063 

2503 




6560 

17060 

17 15 




6565 

17065 

0 033 




6566 

17066 

6006 

XXACPT, 

6006/TEXT 

'ACCEPT' 

6567 

17067 

0103 
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6568 

17070 

0305 




6569 

17071 

2020 




6570 

17072 

0S0W 




6571 

1 7073 

6307 

XXREJT, 

6007/TEXT 'REJECT' 

6572 

17070 

2205 




6573 

1 7o75 

1205 




6570 

17076 

032“ 




6575 

17077 

0230 




6576 




•- 


6577 






6578 

1750? 

ecaa 


0 


6579 






6580 






6581 

17501 

3000 

XXTEXT, 

3000 


6582 

17522 

6023 

XXE0F, 

6023 


6583 

17503 

01 13 

XXUNARY 

,0113 


6580 

17500 

0010 

XXFINI, 

0010 


6585 

17505 

6722 

xxEx!T, 

6022 


6586 

17506 

2C00 

XXLIT0, 

2000/2001 ,*2002/2003 

6597 

1 7537 

2031 




6588 

17513 

2CS2 


* 


6569 

17511 

2003 




6590 



NQPUNCH 



6591 

17512 

0203 

Ll^BUF, 

ZBlOCK 

51 

6592 

17563 

0303 

LBEG1N. 

ZBLOCK 

60 

6593 

17603 

0000 

ENOlI*, 



6590 

17600 

0003 

PDLIST, 

ZBLOCK 

40 

6595 

17730 

0023 

ENOPDL, 

0 


6596 

17705 

0700 

FOPlIST 

.ZBLOCK 

20 

6597 

1 7725 

0000 

GOLIST, 

ZBLOCK 

30 

6598 

17755 

oe00 

GSBEMD, 

0 


6599 




E*PU*CM 


6600 



S 
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A 0 A 1 
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*0A ? 

l 

li' (. 1 

0027 

A 03 
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ACC 

7477 

*DCCCL 

0 3 4 

A"L 

8533 

ACCt. NT 

”313 

ACCY 

... 

adobes 

3v'6? 

AOLE 

65 36 

AOLM 

6531 

A0P5 

6533 

ADDS 

6537 

ADSE 

6535 

AOSX 

6534 

a:st 

6532 

aget 

0 301 

ALGnlP 

44 66 

AUCC 

1461 

ALLS 

3146 

ALTMOO 

2663 

AL1 

4654 

AmatCh 

6506 

ANGRM 

4630 

APUT 

2263 

A PUT 1 
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AFUT2 

0324 

ARGgRR 
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ARfiLOC 0003 
ARi 4402 

ATCMP 0353 
ATE.MP2 3324 
ATUJKE 6451 . 
ATN 62£C 

ATNBIG 6065 
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ATM^OT 623*7 
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BaRRO* 2888 
BCOEFG 1757 
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FMTENF 
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FMT2 

5353 

fmt 3 

5132 

fn 

5453 

fnerr 

0352 

fnexit 

12C0 

for 

0413 

FORCT 

0263 

F0R03N 

0663 

FORERR 

0501 

FORLIM 

0721 

FORLIS 

7705 

forste 

0724 

FORVAR 

0452 

FCUNO 

0575 

FCURLF 

3557 

FP ADO 

4456 

FP4D0R 

4304 

FPOIV 

4667 

FPDCIT 

«237 

fpflag 

0156 

FPGOTC 

4273 

FPJMP 

4317 

FPJUMP 

4274 

fplac 

4351 

FPLOOP 

4222 

FPMUL 

4530 

FPNOAD 

4270 

FPCPER 

4325 

FPS»3Z 

4227 


FPSKIP 4314 
FPSTO 4322 
FP3U9 4453 
FPT 4200 

FPTEMP 4578 
FPTP 0357 
FPZOlV 4736 
FRNDX 5404 
FRSTNE 2155 
F$9 5003 

F 381 5400 

FSEO 3353 
FSGE et?3 
FSST 3143 
PSWIPT 7443 
FSINCJ 5713 
FSINCJ 57 i 8 
F$r\C4 5721 
F3IVC5 5724 
F SIN C6 5727 
FSISC7 5732-. 
FSINH4 5735 
* 31 * 0 * 5657 
F5IN2 5705 


8CGFIX 3762 


•5 r ole 

67J3 

$K#D 

• 06f? 

Break 

6522 

iSSKlP 

2^*32 

Oust 

6 M? 

CiXPEl 

“ 

CCJN7K 

7 £ «r, -T, 

:cm 

7 342 

COEvCO 


COINP 

7 445 

c p s: x <a 

2 ’ t- 

G * * r r v 

6 -i : ;* 

Cl *» 

6 1 3 3 

Cl»A 

6J38 

ClC 

7-77 

ClCa 

6137 

Clear 

7432 

Cl. t AR V 

2*8? 

cl 7 :.n 

6134 

Cl*JT3 

0?e3 

ctczc 

2175 

ClOE 

6132 

CtRCNT 

036 2 

CLS 

?4?7 

CLSA 

6135 

CLS< 

6131 

Cl temp 

0211 

clze 

6130 

CnCLR 

3143 

CNTLCF 

6700 

CNTlCP 

6 67 0 

C.NTLO 

0133 

CoOELO 

0034 

Column 

0126 

common 

3423 

COMPaR 

2136 

const 

1367 

cos 

5618 

Coat 
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COWTFP 7343 
CCWTlP 7331 
CO*TO 7340 

CQWTW 7344 
CRINTX 3376 
C»LF 6531 
C»LFPR 3740. 
CT1 0016 
CT2 0015 
C73 0014 
CV7LOO 5C24 
DATAER 1667 
08AO 7513 
OBB*0 7532 
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FSlNZZ 
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funtab 
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GET 
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getado 

U20 

getary 

7462 

GET8LK 

167a 

getcm 

7201 

GET J 
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getlin 

2603 

GETLRE 

2600 

GETOPR 

1015 

getvar 

0311 

GETwO 

0177 

gloop 

2 711 

GCBOTH 

0532 

golist 

7725 

GC5U8 

05?5 

gotemp 

0053 

GOTO 

0517 

GOTCPR 

1202 

gotss 

1074 


G0T3TE 3634 
GOUT 7251 
GPTP 0060 
CRB 7224 
GROELA 7222 
G39EN0 7755 
GSdPTR 0165 
GSSi 1562 
GS32 1563 
GTtiKLF 171? 
G T E M P 7254 
GwHfRE 7270 
HFOUND 7321 
M IG m * D 4333 
"LOOP 2722 
HPTR 3081 
HRCmaR 7256 
WRLOP 7322 
***<£3 7323 
XAMlES 2158 


CSISRT 
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dolit 

7 - 
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T'j r 3b 

CDi. AST 
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oecexp 
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DCCFRA 
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0 f f 0 £ R 

£526 

DEF 
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OfLAr 
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CfLETf 

16 « 

OElOvT 

0142' 
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01 GO 
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waIaIN 

32?u 

DIGIT 

3204 

OIGLiJf 

1 6 55 7 

OILC 

6? 52 

0ILE 

6256 

OILX 

62 53 

OILY 

6254 

DIM 

6472 

OImFla 

0034 

DINP 

7511 

DIRE 

6057 

OISAUT 

0215 

0IS9 

0136 

OISD 

6352 

01 V L P 

4705 

OIVXTE 

3364 

DIXY 

6055 

CLAST 

7511 

DOAD 

0362 

OOADLP 

0366 

CCITNO 

1247 

OOTZER 

7371 

opflag 

3365 

cgintx 

3170 

0SCREW 

0375 

OvlOCP 

524 5 

edit 

2405 

end 

2567 

enolin 

7643 

ENONUM 

3331 

ENPPDL 

7704 

ECFao 

4526 

eptr 

0356 

ERROR 

4142 

Eva l 

1334 

Evalgo 

IZZ7 

EXECUT ' 

0213 

EXIT 

2402 

EXP 

6300 

EXPGOO 

5242 

Explon 

5764 


6 



PALS 
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6732 

ICIECC 

6725 

ICLECI 

672b 

iclel< 

6731 

iolepc 

6733 

IF 

0375 

IGNORE 

2115 

11 X R 

74ia 

ImhED 

2454 

IN 

3431 

INCMAR 

7255 

IN0EV 

0127 

INOE X 1 

0013 

I NOE X 2 

0014 

INLCTM 

4365 


INLCOP 0572 
INLL’PF 0432 
INOOUN 6710 
INQPPP 6641 
INOTTT 6645 
XNPUUP 4034 
INPPTR 4063 
INPUT 4037 
INSERT 2232 
INSRT5 2030 
INT 6434 
INT4C 6734 
INTCDF 6770 
INTCIF 8771 
INTECO 8782 
INTEMP 8738 
INTER 6800 
INTEXT 87u4 
INTI 6735 
INTCU 6765 
iNtfCTM 4064 
I“NOPE 4024 
IPCINT 7734 
IS0EF2 3512 
ISOIG 653? 
I90IM 1473 
I5ET 7«e? 
ISIT 4566 
ISITOF 3«550 
ISITFU 111? 
ISITuI 4134 
I Sul T 4133 
I5 SCm£ 1644 
I5U M IN 1C13 
ITJDEF 35U 
IT SOP 3258 
ITSE 3263 
I7SCP 1223 
ITSP 3303 
JOPENT 3707 


EXPCK 5265 

F*0 4000 

FAuEXT 1314 
F AOI 
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F A ? N C '• 3 7 ? 
*A*NC‘< 6342 
FA^'-CJ 6*45 
F4TNC! 6-304 
FATNC2 6307 
FAT-.* 3 8 312 
FATNC4 63 IS 
FATNC5 6322 
FATNC6 6323 
FATNC7 6326 
FATNC6 6331 
f ATNC9 6 334 
FATNSX 6272 
FATNT 8276 
FATNTT 6301 
FCNTLC 6665 
r CNTL0 6703 
FOIGIT 3363 
FOV 7070 
FOVI 7403 
FENTER 4435 
F£xIT 0303 
FEXPC1 6072 
FExPC2 6075 
FEXPC3 6170 
FEXPC4 6103 
FEXPC5 61C6 
PE tPCb 6111 

FcXPF (, 2 b7 

FEXPI 6761 
F-EXPU 6064 
FINOIT 0557 
FINOLU 0565 
FIX 4744 
FIXEXI 4773 
FIXITU '5200 
FIXIIN 2113 
FIXUUP 4753 
FIXUP 5146 
fjmp ie?e 
fjmpj lace 
FJUHP 1133 
flo 33C0 

FLO! 3433 
,FLCGC1 6172 
FL0GC2 6153 
FL0GC3 6156 
FLCGC4 felfci 
FMP 6000 

FMPI 6400 
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JDIGIT 3124 
JISCIG 3367 
JMATCM 2766 
JPUTCH 0777 
JTXXIT 3123 
JU5T0 3150 
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LSEGIN 
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LITRAL 
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